From 68013cfaa57f810dedd0a7624ad8aae1e71fe4b7 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 1 Nov 2007 07:08:24 +0000 Subject: (authors-scan-change-log) (authors-scan-el): Don't enable local eval; enable only safe local variables, without querying. --- lisp/emacs-lisp/authors.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp/authors.el') diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 4b490621f51..50d2f41f7ae 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) -- cgit v1.2.3