summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2012-08-09 23:56:01 -0700
committerGlenn Morris <rgm@gnu.org>2012-08-09 23:56:01 -0700
commitfbb5e3364871172431e32b4b722d1e1fd6312330 (patch)
tree22e816b13d075b2dc0333256c6119e2e02ed31e4
parent7aacaf15a2ec7d17e75d94b902fa895d7d196026 (diff)
downloademacs-fbb5e3364871172431e32b4b722d1e1fd6312330.tar.gz
* lisp/emacs-lisp/copyright.el (copyright-update-directory): Logic fix.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/emacs-lisp/copyright.el10
2 files changed, 7 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 92afc1ab857..65017383de8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
2012-08-10 Glenn Morris <rgm@gnu.org>
+ * emacs-lisp/copyright.el (copyright-update-directory): Logic fix.
+
* tutorial.el (help-with-tutorial):
* emacs-lisp/copyright.el (copyright-update-directory):
* emacs-lisp/autoload.el (autoload-find-generated-file)
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 0da5b2abbb8..889e3541455 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -363,11 +363,11 @@ If FIX is non-nil, run `copyright-fix-years' instead."
(dolist (file (directory-files directory t match nil))
(unless (file-directory-p file)
(message "Updating file `%s'" file)
- (find-file file)
- (let ((inhibit-read-only t)
- (enable-local-variables :safe)
- (enable-local-eval nil)
- copyright-query)
+ ;; FIXME we should not use find-file+save+kill.
+ (let ((enable-local-variables :safe)
+ (enable-local-eval nil))
+ (find-file file))
+ (let ((inhibit-read-only t))
(if fix
(copyright-fix-years)
(copyright-update)))