mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2012-08-09 23:56:01 -07:00
parent 7aacaf15a2
commit fbb5e33648
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

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

10
lisp/emacs-lisp/copyright.el
View File

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