From e0e5f0766cda897cb594ef7f1b1fedd7cdcea519 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Tue, 5 Apr 2005 23:19:34 +0000 Subject: [PATCH] (copyright-update-year): Replace the right subexpression. Suggested by Jay Bingham . --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/copyright.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a63589e2798..25516e8d6c1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-04-06 Lute Kamstra + + * emacs-lisp/copyright.el (copyright-update-year): Replace the + right subexpression. Suggested by Jay Bingham . + 2005-04-05 Lute Kamstra * 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 0be9d139fd2..c2d3303c825 100644 --- 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 -- 2.11.4.GIT