From: Romain Francoise Date: Fri, 2 Nov 2007 11:03:43 +0000 (+0000) Subject: 2007-11-02 Drake Wilson (tiny change) X-Git-Tag: emacs-pretest-23.0.90~9885 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3020ee9278142603cb65e04f75cdcf363637860d;p=emacs.git 2007-11-02 Drake Wilson (tiny change) * files.el (hack-local-variables): Fix membership tests to avoid treating all variables as safe if `enable-local-variables' is set to :safe. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9987ff1f5a..17e6ba20f54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-11-02 Drake Wilson (tiny change) + + * files.el (hack-local-variables): Fix membership tests to avoid + treating all variables as safe if `enable-local-variables' is + set to :safe. + 2007-11-02 Glenn Morris * newcomment.el (comment-indent): Let comment-insert-comment-function, diff --git a/lisp/files.el b/lisp/files.el index 6b0bd26efe8..f2caa0abe82 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2821,8 +2821,8 @@ is specified, returning t if it is specified." ;; If caller wants only the safe variables, ;; install only them. (dolist (elt result) - (unless (or (memq (car elt) unsafe-vars) - (memq (car elt) risky-vars)) + (unless (or (member elt unsafe-vars) + (member elt risky-vars)) (hack-one-local-variable (car elt) (cdr elt)))) ;; Query, except in the case where all are known safe ;; if the user wants no quuery in that case.