Lines Matching defs:current
1 ;;; copyright.el --- update the copyright notice in current buffer
36 "Update the copyright notice in current buffer."
75 (defconst copyright-current-gpl-version "2"
76 "String representing the current version of the GPL or nil.")
82 (defvar copyright-current-year (substring (current-time-string) -4)
83 "String representing the current year.")
104 ;; Note that `current-time-string' isn't locale-sensitive.
105 (setq copyright-current-year (substring (current-time-string) -4))
107 (substring copyright-current-year -2))
111 copyright-current-year "? ")
112 (concat "Add " copyright-current-year
115 (replace-match copyright-current-year t t nil 2)
117 (if (and (eq (% (- (string-to-number copyright-current-year)
138 (insert (substring copyright-current-year size))))))))
142 "Update copyright notice at beginning of buffer to indicate the current year.
144 the current year after them. If necessary, and
145 `copyright-current-gpl-version' is set, any copying permissions
159 (and copyright-current-gpl-version
166 (not (string= (match-string 3) copyright-current-gpl-version))
169 copyright-current-gpl-version "? ")))
173 (replace-match copyright-current-gpl-version t t nil 2))
174 (replace-match copyright-current-gpl-version t t nil 3))))
224 "Copyright (C) " `(substring (current-time-string) -4) " by "