# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1194001333 0
# Node ID bef6cef0e8f4621a14442b7f8e5ee5e76845b973
# Parent  316574aa2a9ad46f8829765150adc9189210a34d
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 316574aa2a9a -r bef6cef0e8f4 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 02 08:19:17 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 02 11:02:13 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>
 
 	* progmodes/etags.el (tags-table-mode): Disable undo.
diff -r 316574aa2a9a -r bef6cef0e8f4 lisp/files.el
--- a/lisp/files.el	Fri Nov 02 08:19:17 2007 +0000
+++ b/lisp/files.el	Fri Nov 02 11:02:13 2007 +0000
@@ -2764,8 +2764,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.