diff options
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 8 |
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." | |||
| 56 | (save-restriction | 56 | (save-restriction |
| 57 | (widen) | 57 | (widen) |
| 58 | (goto-char (point-min)) | 58 | (goto-char (point-min)) |
| 59 | ;; Handle abbreviated year lists like "1800, 01, 02, 03". | 59 | ;; Handle abbreviated year lists like "1800, 01, 02, 03" |
| 60 | (if (re-search-forward (concat (substring current-year 0 2) | 60 | ;; or "1900, '01, '02, '03". |
| 61 | "\\([0-9][0-9]\\(,\\s \\)+\\)*" | 61 | (if (re-search-forward (concat "\\(" (substring current-year 0 2) |
| 62 | "\\)?" | ||
| 63 | "\\([0-9][0-9]\\(,\\s \\)+\\)*'?" | ||
| 62 | (substring current-year 2)) | 64 | (substring current-year 2)) |
| 63 | nil t) | 65 | nil t) |
| 64 | (or ask-upd | 66 | (or ask-upd |