[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/copyright.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/17 03:02:33

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: copyright.el 

Log message:
        (copyright-update-year): Don't let y-or-n-p move point.  (Bug#2209)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15340&r2=1.15341
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/copyright.el?cvsroot=emacs&r1=1.79&r2=1.80

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15340
retrieving revision 1.15341
diff -u -b -r1.15340 -r1.15341
--- ChangeLog   17 Feb 2009 02:54:14 -0000      1.15340
+++ ChangeLog   17 Feb 2009 03:02:25 -0000      1.15341
@@ -1,5 +1,8 @@
 2009-02-17  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/copyright.el (copyright-update-year): Don't let y-or-n-p
+       move point.  (Bug#2209)
+
        * mail/rmailout.el (rmail-fields-not-to-output): Doc fix.
        (rmail-delete-unwanted-fields): Ignore case.  Use line-beg-pos.
        (rmail-output, rmail-output-as-seen): Change the "from-gnus" argument to

Index: emacs-lisp/copyright.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/copyright.el,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -b -r1.79 -r1.80
--- emacs-lisp/copyright.el     16 Jan 2009 03:19:58 -0000      1.79
+++ emacs-lisp/copyright.el     17 Feb 2009 03:02:33 -0000      1.80
@@ -157,11 +157,13 @@
     (unless (string= (buffer-substring (- (match-end 3) 2) (match-end 3))
                     (substring copyright-current-year -2))
       (if (or noquery
+             ;; Fixes some point-moving oddness (bug#2209).
+             (save-excursion
              (y-or-n-p (if replace
                            (concat "Replace copyright year(s) by "
                                    copyright-current-year "? ")
                          (concat "Add " copyright-current-year
-                                 " to copyright? "))))
+                                   " to copyright? ")))))
          (if replace
              (replace-match copyright-current-year t t nil 3)
            (let ((size (save-excursion (skip-chars-backward "0-9"))))