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

(copyright-update-year, copyright-update)

Browse source 
(copyright-fix-years): Fix bug: Handle nil copyright-limit.
This commit is contained in:
Thien-Thi Nguyen 2007-08-17 22:04:18 +00:00
parent 91db3c234f
commit 578bbaf55b
2 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -84,7 +84,10 @@ When this is `function', only ask when called non-interactively."
(defun copyright-update-year (replace noquery)
(when (re-search-forward copyright-regexp
(if copyright-limit (+ (point) copyright-limit)) t)
(if copyright-limit
(+ (point) copyright-limit)
t)
t)
;; If the years are continued onto multiple lined
;; that are marked as comments, skip to the end of the years anyway.
(while (save-excursion
@ -164,7 +167,10 @@ interactively."
"\\(the Free Software Foundation;\
either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)\
version \\([0-9]+\\), or (at"
(if copyright-limit (+ (point) copyright-limit)) t)
(if copyright-limit
(+ (point) copyright-limit)
t)
t)
(not (string= (match-string 3) copyright-current-gpl-version))
(or noquery
(y-or-n-p (concat "Replace GPL version by "
@ -187,7 +193,10 @@ Uses heuristic: year >= 50 means 19xx, < 50 means 20xx."
(widen)
(goto-char (point-min))
(if (re-search-forward copyright-regexp
(if copyright-limit (+ (point) copyright-limit)) t)
(if copyright-limit
(+ (point) copyright-limit)
t)
t)
(let ((s (match-beginning 2))
(e (copy-marker (1+ (match-end 2))))
(p (make-marker))