2007-11-02 Drake Wilson <drake@begriffli.ch> (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 c9987ff1f5af8112febea42d56ffa917b605d38f..17e6ba20f54ecd3d68411bcb79a951a3746f52f2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-02  Drake Wilson  <drake@begriffli.ch>  (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  <rgm@gnu.org>
 
        * newcomment.el (comment-indent): Let comment-insert-comment-function,

diff --git a/lisp/files.el b/lisp/files.el
index 6b0bd26efe85215a7c69cc06086a864b31d4eed7..f2caa0abe8243c9e3727668ddc269326c96ae306 100644 (file)
--- 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.