(update-copyright): Handle two-digit years with apostrophes.

1 files 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