Mercurial > emacs

changeset 4647:4becc54c89df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(update-copyright): Handle two-digit years with apostrophes.
author Roland McGrath <roland@gnu.org>
date Wed, 18 Aug 1993 16:48:32 +0000
parents bdc64f022625
children 9591fdbc2868
files lisp/emacs-lisp/copyright.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/copyright.el	Mon Aug 16 19:10:25 1993 +0000
+++ b/lisp/emacs-lisp/copyright.el	Wed Aug 18 16:48:32 1993 +0000
@@ -56,9 +56,11 @@
     (save-restriction
       (widen)
       (goto-char (point-min))
-      ;; Handle abbreviated year lists like "1800, 01, 02, 03".
-      (if (re-search-forward (concat (substring current-year 0 2)
-				     "\\([0-9][0-9]\\(,\\s \\)+\\)*"
+      ;; Handle abbreviated year lists like "1800, 01, 02, 03"
+      ;; or "1900, '01, '02, '03".
+      (if (re-search-forward (concat "\\(" (substring current-year 0 2)
+				     "\\)?"
+				     "\\([0-9][0-9]\\(,\\s \\)+\\)*'?"
 				     (substring current-year 2))
 			     nil t)
 	  (or ask-upd