Charles Coldwell b2a73a
description:
Charles Coldwell b2a73a
;;; files.el --- file input and output commands for Emacs
Charles Coldwell b2a73a
----------------------------
Charles Coldwell b2a73a
revision 1.938
Charles Coldwell b2a73a
date: 2007-11-02 11:03:42 +0000;  author: rfrancoise;  state: Exp;  lines: +2 -2;  commitid: wgxFxIhiWr3NtZDs;
Charles Coldwell b2a73a
2007-11-02  Drake Wilson  <drake@begriffli.ch>  (tiny change)
Charles Coldwell b2a73a
Charles Coldwell b2a73a
        * files.el (hack-local-variables): Fix membership tests to avoid
Charles Coldwell b2a73a
        treating all variables as safe if `enable-local-variables' is
Charles Coldwell b2a73a
        set to :safe.
Charles Coldwell b2a73a
=============================================================================
Charles Coldwell b2a73a
Index: lisp/files.el
Charles Coldwell b2a73a
===================================================================
Charles Coldwell b2a73a
RCS file: /sources/emacs/emacs/lisp/files.el,v
Charles Coldwell b2a73a
retrieving revision 1.937
Charles Coldwell b2a73a
retrieving revision 1.938
Charles Coldwell b2a73a
diff -u -r1.937 -r1.938
Charles Coldwell b2a73a
--- lisp/files.el	26 Oct 2007 14:25:17 -0000	1.937
Charles Coldwell b2a73a
+++ lisp/files.el	2 Nov 2007 11:03:42 -0000	1.938
Charles Coldwell b2a73a
@@ -2821,8 +2821,8 @@
Charles Coldwell b2a73a
 		;; If caller wants only the safe variables,
Charles Coldwell b2a73a
 		;; install only them.
Charles Coldwell b2a73a
 		(dolist (elt result)
Charles Coldwell b2a73a
-		  (unless (or (memq (car elt) unsafe-vars)
Charles Coldwell b2a73a
-			      (memq (car elt) risky-vars))
Charles Coldwell b2a73a
+		  (unless (or (member elt unsafe-vars)
Charles Coldwell b2a73a
+			      (member elt risky-vars))
Charles Coldwell b2a73a
 		    (hack-one-local-variable (car elt) (cdr elt))))
Charles Coldwell b2a73a
 	      ;; Query, except in the case where all are known safe
Charles Coldwell b2a73a
 	      ;; if the user wants no quuery in that case.