Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fbb5e336
Commit
fbb5e336
authored
Aug 09, 2012
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/emacs-lisp/copyright.el (copyright-update-directory): Logic fix.
parent
7aacaf15
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
5 deletions
+7
-5
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/emacs-lisp/copyright.el
lisp/emacs-lisp/copyright.el
+5
-5
No files found.
lisp/ChangeLog
View file @
fbb5e336
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)
...
...
lisp/emacs-lisp/copyright.el
View file @
fbb5e336
...
...
@@ -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-va
riables
:safe
)
(
enable-local-eval
nil
)
copyright-query
)
;; FIXME we should not use find-file+save+kill.
(
let
((
enable-local-variables
:safe
)
(
enable-local-
e
va
l
nil
)
)
(
find-file
file
)
)
(
let
((
inhibit-read-only
t
)
)
(
if
fix
(
copyright-fix-years
)
(
copyright-update
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment