procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(copyright-fix-years): Match properly if the first year is 2-digit.

Browse source 
Don't mess up the whitespace after the years by filling.
This commit is contained in:
Richard M. Stallman 2005-05-15 22:03:16 +00:00
parent c232fd12ab
commit 02d9d6829a
2 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -189,6 +189,8 @@ Uses heuristic: year >= 50 means 19xx, < 50 means 20xx."
last)
(set-marker e (1+ (match-end 2)))
(goto-char s)
;; Back up one character so that our search can match the first year.
(backward-char 1)
(while (and (< (point) (marker-position e))
(re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]"
(marker-position e) t))
@ -204,8 +206,12 @@ Uses heuristic: year >= 50 means 19xx, < 50 means 20xx."
(setq last p)))
(when last
(goto-char last)
(let ((fill-prefix " "))
(fill-region s last))
;; Don't mess up whitespace after the years.
(skip-chars-backward " \t")
(save-restriction
(narrow-to-region (point-min) (point))
(let ((fill-prefix " "))
(fill-region s last)))
)
(set-marker e nil)
(copyright-update nil t))