Lines Matching defs:year
28 ;; Allows updating the copyright year and above mentioned GPL version manually
80 ;; This is a defvar rather than a defconst, because the year can
82 (defvar copyright-current-year (substring (current-time-string) -4)
83 "String representing the current year.")
85 (defun copyright-update-year (replace noquery)
105 (setq copyright-current-year (substring (current-time-string) -4))
107 (substring copyright-current-year -2))
110 (concat "Replace copyright year(s) by "
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)
137 ;; Finally insert the new 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
157 (copyright-update-year arg noquery)
183 Uses heuristic: year >= 50 means 19xx, < 50 means 20xx."
197 (year (string-to-number (match-string 0))))
202 (when (< year 100)
203 (insert (if (>= year 50) "19" "20"))))