mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-08-17 Kimit Yada <kimitto@gmail.com> (tiny change)
* emacs-lisp/copyright.el (copyright-update-year, copyright-update)
(copyright-fix-years): Fix bug: Handle nil copyright-limit.
2007-08-17 Bob Rogers <rogers-emacs@rgrjr.dyndns.org> (tiny change)
* progmode/cperl-mode.el (cperl-look-at-leading-count)

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