From 09a09037064d7b93ab3af5900529ce5b3971b601 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 18 Aug 1993 16:48:32 +0000 Subject: [PATCH] (update-copyright): Handle two-digit years with apostrophes. --- lisp/emacs-lisp/copyright.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index 86056f0856a..a39df35d009 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -56,9 +56,11 @@ than adding to it." (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 -- 2.39.5