# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1194001423 0
# Node ID 273fc54f433857c41922a248018f0690b27c4178
# Parent  4cedf06c1ad246b024322cf7712aa875514fdbe7
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 -r 4cedf06c1ad2 -r 273fc54f4338 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 02 08:21:04 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 02 11:03:43 2007 +0000
@@ -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 -r 4cedf06c1ad2 -r 273fc54f4338 lisp/files.el
--- a/lisp/files.el	Fri Nov 02 08:21:04 2007 +0000
+++ b/lisp/files.el	Fri Nov 02 11:03:43 2007 +0000
@@ -2821,8 +2821,8 @@
 		;; 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.