diff options
| author | Roland McGrath <roland@gnu.org> | 1993-08-18 16:48:32 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-08-18 16:48:32 +0000 |
| commit | 09a09037064d7b93ab3af5900529ce5b3971b601 (patch) | |
| tree | 9039f2caa02cc9109aace3f7f44783f54a87bc69 /lisp/emacs-lisp | |
| parent | 0114e17e668a921c9050d5743943c16a9cee5f37 (diff) | |
| download | emacs-09a09037064d7b93ab3af5900529ce5b3971b601.tar.gz emacs-09a09037064d7b93ab3af5900529ce5b3971b601.tar.bz2 emacs-09a09037064d7b93ab3af5900529ce5b3971b601.zip | |
(update-copyright): Handle two-digit years with apostrophes.
Diffstat (limited to 'lisp/emacs-lisp')
| -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." (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 |