HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add 2010 to copyright years.
[bpt/emacs.git]
/
lisp
/
textmodes
/
tildify.el
diff --git
a/lisp/textmodes/tildify.el
b/lisp/textmodes/tildify.el
index
c8dcc4d
..
c723893
100644
(file)
--- a/
lisp/textmodes/tildify.el
+++ b/
lisp/textmodes/tildify.el
@@
-1,6
+1,7
@@
;;; tildify.el --- adding hard spaces into texts
;;; tildify.el --- adding hard spaces into texts
-;; Copyright (C) 1997, 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Milan Zamazal <pdm@zamazal.org>
;; Version: 4.5
;; Author: Milan Zamazal <pdm@zamazal.org>
;; Version: 4.5
@@
-8,10
+9,10
@@
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software
;
you can redistribute it and/or modify
+;; GNU Emacs is free software
:
you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation
; either version 2, or (at your option)
-;; any later version.
+;; the Free Software Foundation
, either version 3 of the License, or
+;;
(at your option)
any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@
-19,16
+20,14
@@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This package can be typically used for adding forgotten tildes in TeX
;; sources or adding ` ' sequences in SGML (e.g. HTML) texts.
;;
;;; Commentary:
;; This package can be typically used for adding forgotten tildes in TeX
;; sources or adding ` ' sequences in SGML (e.g. HTML) texts.
;;
-;; For example, the Czech ortography requires avoiding one letter
+;; For example, the Czech ort
h
ography requires avoiding one letter
;; prepositions at line endings. So they should be connected with the
;; following words by a tilde. Some users forget to do this all the
;; time. The purpose of this program is to check the text and suggest
;; prepositions at line endings. So they should be connected with the
;; following words by a tilde. Some users forget to do this all the
;; time. The purpose of this program is to check the text and suggest
@@
-42,7
+41,7
@@
;; The default variable settings are suited for Czech, so do not try to
;; understand them if you are not familiar with Czech grammar and spelling.
;;
;; The default variable settings are suited for Czech, so do not try to
;; understand them if you are not familiar with Czech grammar and spelling.
;;
-;; The algorithm was inspired by Petr Ol¹ák's program `vlna'. Ab
b
ilities of
+;; The algorithm was inspired by Petr Ol¹ák's program `vlna'. Abilities of
;; `tildify.el' are a little limited; if you have improvement suggestions, let
;; me know.
;; `tildify.el' are a little limited; if you have improvement suggestions, let
;; me know.
@@
-221,11
+220,11
@@
This function performs no refilling of the changed text."
(if (> (point) (marker-position marker-end))
(setq finish t))
(message
(if (> (point) (marker-position marker-end))
(setq finish t))
(message
-
(format "End of environment not found: %s" end-env)
)
+
"End of environment not found: %s" end-env
)
(setq finish t))))))
;; No ignored environments, tildify directly
(tildify-tildify beg end ask)))
(setq finish t))))))
;; No ignored environments, tildify directly
(tildify-tildify beg end ask)))
- (message
(format "%d spaces replaced." tildify-count)
))
+ (message
"%d spaces replaced." tildify-count
))
;;;###autoload
(defun tildify-buffer ()
;;;###autoload
(defun tildify-buffer ()
@@
-354,5
+353,5
@@
further questions)."
;; coding: iso-latin-2
;; End:
;; coding: iso-latin-2
;; End:
-;;
;
arch-tag: fc9b05a6-7355-4639-8170-dcf57853ba22
+;; arch-tag: fc9b05a6-7355-4639-8170-dcf57853ba22
;;; tildify.el ends here
;;; tildify.el ends here