diff options
| author | Glenn Morris <[email protected]> | 2007-11-01 07:08:24 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2007-11-01 07:08:24 +0000 |
| commit | 68013cfaa57f810dedd0a7624ad8aae1e71fe4b7 (patch) | |
| tree | 47e1d7815904e203cbae975f165d2165111319e5 /lisp/emacs-lisp | |
| parent | 869dc29056853986b3339f1ded30c8901dbb411c (diff) | |
(authors-scan-change-log)
(authors-scan-el): Don't enable local eval; enable only safe local
variables, without querying.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/authors.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 4b490621f5..50d2f41f7a 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -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) |