diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-03 23:42:06 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-03 23:42:06 +0000 |
| commit | 2cb250dd39044b7d07cb62267e04f43b079c0dab (patch) | |
| tree | 3336ff3b8aa74d9762569ec4e5c07fb5d657648f /lisp/emacs-lisp | |
| parent | e48a5bf9ddcf13d87aa4964de40df063333ce37e (diff) | |
| download | emacs-2cb250dd39044b7d07cb62267e04f43b079c0dab.tar.gz emacs-2cb250dd39044b7d07cb62267e04f43b079c0dab.tar.bz2 emacs-2cb250dd39044b7d07cb62267e04f43b079c0dab.zip | |
(copyright-update): Don't update if the file
already uses a more recent copyright version than the "current" one.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index 318dcf611e3..b53ec9c217b 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -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 |