* lisp/emacs-lisp/copyright.el (copyright-update-directory): Logic fix.

fbb5e336 · Glenn Morris · 7aacaf15 · fbb5e336 · fbb5e336
Commit fbb5e336 authored Aug 09, 2012 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 5 deletions

lisp/ChangeLog lisp/ChangeLog +2 -0

lisp/emacs-lisp/copyright.el lisp/emacs-lisp/copyright.el +5 -5

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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)

--- 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)))