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

by Jay Bingham <jay.bingham@hp.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a63589e27984c558569ebcfa5ee7ec387586f2d3..25516e8d6c1855a94494dfa27fa836eb76c02ebc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 0be9d139fd295c96a19f5028d09f57e7e346927b..c2d3303c825963aeb2e53b32e7024f56a8afc0ea 100644 (file)
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -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