mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Roland McGrath 1993-08-18 16:48:32 +00:00
parent 0114e17e66
commit 09a0903706
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/copyright.el
View file

@ -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