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