From ed2a52e9ee7b2a3d4bc941e9f3c324a57cd12108 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 16 Jul 2009 02:01:31 +0000 Subject: (copyright-update): Save match-data across y-or-n-p, for safety. --- lisp/emacs-lisp/copyright.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index f454d2ef52d..67b521240c1 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -223,8 +223,9 @@ version \\([0-9]+\\), or (at" (< (string-to-number (match-string 3)) (string-to-number copyright-current-gpl-version)) (or noquery - (y-or-n-p (format "Replace GPL version by %s? " - copyright-current-gpl-version))) + (save-match-data + (y-or-n-p (format "Replace GPL version by %s? " + copyright-current-gpl-version)))) (progn (if (match-end 2) ;; Esperanto bilingual comment in two-column.el -- cgit v1.2.3