procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(copyright-update): Don't update if the file

Browse source 
already uses a more recent copyright version than the "current" one.
This commit is contained in:
Stefan Monnier 2007-10-03 23:42:06 +00:00
parent e48a5bf9dd
commit 2cb250dd39
2 changed files with 19 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -186,10 +186,13 @@ interactively."
either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)\
version \\([0-9]+\\), or (at"
(copyright-limit) t)
(not (string= (match-string 3) copyright-current-gpl-version))
;; Don't update if the file is already using a more recent
;; version than the "current" one.
(< (string-to-number (match-string 3))
(string-to-number copyright-current-gpl-version))
(or noquery
(y-or-n-p (concat "Replace GPL version by "
copyright-current-gpl-version "? ")))
(y-or-n-p (format "Replace GPL version by %s? "
copyright-current-gpl-version)))
(progn
(if (match-end 2)
;; Esperanto bilingual comment in two-column.el