Mercurial > emacs

comparison lisp/emacs-lisp/copyright.el @ 82449:786b4b5a733e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(copyright-limit): Fix sense typo in defsubst.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Fri, 17 Aug 2007 22:18:54 +0000
parents 7206375cd8a6
children 729600607616 aaccdab0ee26
comparison
equal deleted inserted replaced
82448:6d0e8e2e2868 82449:786b4b5a733e
89 ;; change during the Emacs session. 89 ;; change during the Emacs session.
90 (defvar copyright-current-year (substring (current-time-string) -4) 90 (defvar copyright-current-year (substring (current-time-string) -4)
91 "String representing the current year.") 91 "String representing the current year.")
92 92
93 (defsubst copyright-limit () ; re-search-forward BOUND 93 (defsubst copyright-limit () ; re-search-forward BOUND
94 (or (not copyright-limit) 94 (and copyright-limit (+ (point) copyright-limit)))
95 (+ (point) copyright-limit)))
96 95
97 (defun copyright-update-year (replace noquery) 96 (defun copyright-update-year (replace noquery)
98 (when 97 (when
99 (condition-case err 98 (condition-case err
100 (re-search-forward (concat "\\(" copyright-regexp 99 (re-search-forward (concat "\\(" copyright-regexp