Commit 2cb250dd authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

already uses a more recent copyright version than the "current" one.
parent e48a5bf9
2007-10-03 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/copyright.el (copyright-update): Don't update if the file
already uses a more recent copyright version than the "current" one.
2007-10-03 Micha,Ak(Bl Cadilhac <michael@cadilhac.name> 2007-10-03 Micha,Ak(Bl Cadilhac <michael@cadilhac.name>
* doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-reset-slice) * doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-reset-slice)
...@@ -12,9 +17,9 @@ ...@@ -12,9 +17,9 @@
2007-10-03 Michael Albinus <michael.albinus@gmx.de> 2007-10-03 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (top): Add tramp-compat to `tramp-unload-hook'. * net/tramp.el (top): Add tramp-compat to `tramp-unload-hook'.
(tramp-file-name-handler-alist): Add (tramp-file-name-handler-alist):
`tramp-handle-insert-file-contents-literally'. Neded for XEmacs. Add `tramp-handle-insert-file-contents-literally'. Needed for XEmacs.
(tramp-make-temp-file): Use `make-temp-name'. `make-temp-file', (tramp-make-temp-file): Use `make-temp-name'. `make-temp-file',
used before, creates the file already, which is not desired. used before, creates the file already, which is not desired.
(tramp-do-copy-or-rename-file-directly): Simplify handling of (tramp-do-copy-or-rename-file-directly): Simplify handling of
temporary file. temporary file.
...@@ -32,8 +37,7 @@ ...@@ -32,8 +37,7 @@
order to avoid autoloading problems. order to avoid autoloading problems.
* net/tramp-fish.el: * net/tramp-fish.el:
* net/tramp-smb.el: Move further compatibility code to * net/tramp-smb.el: Move further compatibility code to tramp-compat.el.
tramp-compat.el.
* net/tramp-ftp.el (tramp-ftp-file-name-handler): Handle the case * net/tramp-ftp.el (tramp-ftp-file-name-handler): Handle the case
where the second parameter of `copy-file' or `rename-file' is a where the second parameter of `copy-file' or `rename-file' is a
...@@ -71,14 +75,14 @@ ...@@ -71,14 +75,14 @@
shrunk, tail the whole file again (the file presumably has been shrunk, tail the whole file again (the file presumably has been
rewritten). rewritten).
* woman.el (woman-topic-all-completions, woman-mini-help): Fix * woman.el (woman-topic-all-completions, woman-mini-help):
fallout from 2007-09-07 introduction of `dolist' when the list Fix fallout from 2007-09-07 introduction of `dolist' when the list
actually was being manipulated in the loop. actually was being manipulated in the loop.
(woman-Cyg-to-Win, woman-pre-process-region) (woman-Cyg-to-Win, woman-pre-process-region)
(woman-horizontal-escapes, woman-if-body, woman-unescape) (woman-horizontal-escapes, woman-if-body, woman-unescape)
(woman-strings, woman-special-characters, woman1-hc) (woman-strings, woman-special-characters, woman1-hc)
(woman-change-fonts, woman-find-next-control-line): Use (woman-change-fonts, woman-find-next-control-line):
`match-beginning' rather than `match-string' when the result is Use `match-beginning' rather than `match-string' when the result is
just used as a flag. just used as a flag.
2007-09-30 Michael Albinus <michael.albinus@gmx.de> 2007-09-30 Michael Albinus <michael.albinus@gmx.de>
......
...@@ -186,10 +186,13 @@ interactively." ...@@ -186,10 +186,13 @@ interactively."
either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)\ either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)\
version \\([0-9]+\\), or (at" version \\([0-9]+\\), or (at"
(copyright-limit) t) (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 (or noquery
(y-or-n-p (concat "Replace GPL version by " (y-or-n-p (format "Replace GPL version by %s? "
copyright-current-gpl-version "? "))) copyright-current-gpl-version)))
(progn (progn
(if (match-end 2) (if (match-end 2)
;; Esperanto bilingual comment in two-column.el ;; Esperanto bilingual comment in two-column.el
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment