mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(authors-scan-change-log)

Browse Source 
(authors-scan-el): Don't enable local eval; enable only safe local
variables, without querying.
This commit is contained in:
Glenn Morris 2007-11-01 07:08:24 +00:00
parent 869dc29056
commit 68013cfaa5
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -17,6 +17,10 @@
* doc-view.el (doc-view-cache-directory): Remove superfluous concat.
* emacs-lisp/authors.el (authors-scan-change-log)
(authors-scan-el): Don't enable local eval; enable only safe local
variables, without querying.
* mail/footnote.el (footnote-numeric-regexp)
(footnote-english-upper-regexp, footnote-english-lower-regexp)
(footnote-roman-lower-regexp, footnote-roman-upper-regexp):

8
lisp/emacs-lisp/authors.el
View File

@ -475,8 +475,8 @@ with the file and the number of each action.
:wrote means the author wrote the file
:changed means he changed the file COUNT times."
(let* ((enable-local-variables t)
(enable-local-eval t)
(let* ((enable-local-variables :safe)
(enable-local-eval nil)
(existing-buffer (get-file-buffer log-file))
(buffer (find-file-noselect log-file))
author file pos)
@ -521,8 +521,8 @@ with the file and the number of each action.
"Scan Lisp file FILE for author information.
TABLE is a hash table to add author information to."
(let* ((existing-buffer (get-file-buffer file))
(enable-local-variables t)
(enable-local-eval t)
(enable-local-variables :safe)
(enable-local-eval nil)
(buffer (find-file-noselect file)))
(save-excursion
(set-buffer buffer)