mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(copyright-update-year): Replace the right subexpression. Suggested

Browse source 
by Jay Bingham <jay.bingham@hp.com>.
This commit is contained in:
Lute Kamstra 2005-04-05 23:19:34 +00:00
parent 7bade82d96
commit e0e5f0766c
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-04-06 Lute Kamstra <lute@gnu.org>
* emacs-lisp/copyright.el (copyright-update-year): Replace the
right subexpression. Suggested by Jay Bingham <jay.bingham@hp.com>.
2005-04-05 Lute Kamstra <lute@gnu.org> 2005-04-05 Lute Kamstra <lute@gnu.org>
* generic.el (generic-mode-internal): Fix 2005-03-31 change. * generic.el (generic-mode-internal): Fix 2005-03-31 change.

2
lisp/emacs-lisp/copyright.el
View file

@ -112,7 +112,7 @@ When this is `function', only ask when called non-interactively."
(concat "Add " copyright-current-year (concat "Add " copyright-current-year
" to copyright? ")))) " to copyright? "))))
(if replace (if replace
(replace-match copyright-current-year t t nil 1) (replace-match copyright-current-year t t nil 2)
(let ((size (save-excursion (skip-chars-backward "0-9")))) (let ((size (save-excursion (skip-chars-backward "0-9"))))
(if (and (eq (% (- (string-to-number copyright-current-year) (if (and (eq (% (- (string-to-number copyright-current-year)
(string-to-number (buffer-substring (string-to-number (buffer-substring