From 68013cfaa57f810dedd0a7624ad8aae1e71fe4b7 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 1 Nov 2007 07:08:24 +0000 Subject: [PATCH] (authors-scan-change-log) (authors-scan-el): Don't enable local eval; enable only safe local variables, without querying. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/authors.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf6bca5c8b..f01bd38226 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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): 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) -- 2.20.1