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

(copyright-current-year): Now a defvar.

Browse source 
(copyright, copyright-update): Compute the current year at run
time.
This commit is contained in:
Eli Zaretskii 2001-01-08 16:00:38 +00:00
parent 962116cf6f
commit b7812d3050
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -61,16 +61,18 @@ When this is `function', only ask when called non-interactively."
(other :tag "Ask" t)))
(defconst copyright-current-year (substring (current-time-string) -4)
"String representing the current year.")
;; when modifying this, also modify the comment generated by autoinsert.el
(defconst copyright-current-gpl-version "2"
"String representing the current version of the GPL or `nil'.")
(defvar copyright-update t)
;; This is a defvar rather than a defconst, because the year can
;; change during the Emacs session.
(defvar copyright-current-year "2001"
"String representing the current year.")
;;;###autoload
(defun copyright-update (&optional arg)
"Update the copyright notice at the beginning of the buffer to indicate
@ -84,6 +86,7 @@ copyright, if any, are updated as well."
(save-restriction
(widen)
(goto-char (point-min))
(setq copyright-current-year (substring (current-time-string) -4))
(if (re-search-forward copyright-regexp copyright-limit t)
(if (string= (buffer-substring (- (match-end 2) 2) (match-end 2))
(substring copyright-current-year -2))
@ -148,7 +151,7 @@ copyright, if any, are updated as well."
"Insert a copyright by $ORGANIZATION notice at cursor."
"Company: "
comment-start
"Copyright (C) " copyright-current-year " by "
"Copyright (C) " `(substring (current-time-string) -4) " by "
(or (getenv "ORGANIZATION")
str)
'(if (> (point) copyright-limit)