(copyright-update-year): Replace the right subexpression. Suggested
by Jay Bingham <jay.bingham@hp.com>.
This commit is contained in:
parent
7bade82d96
commit
e0e5f0766c
2 changed files with 6 additions and 1 deletions
|
@ -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>
|
||||
|
||||
* generic.el (generic-mode-internal): Fix 2005-03-31 change.
|
||||
|
|
|
@ -112,7 +112,7 @@ When this is `function', only ask when called non-interactively."
|
|||
(concat "Add " copyright-current-year
|
||||
" to copyright? "))))
|
||||
(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"))))
|
||||
(if (and (eq (% (- (string-to-number copyright-current-year)
|
||||
(string-to-number (buffer-substring
|
||||
|
|
Loading…
Add table
Reference in a new issue