From b2a73a32ba1f50343735973f759e7e0dcda26a8b Mon Sep 17 00:00:00 2001 From: Charles Coldwell Date: Tue, 6 Nov 2007 16:34:36 +0000 Subject: [PATCH] forgot to add the patch --- files-el.patch | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 files-el.patch diff --git a/files-el.patch b/files-el.patch new file mode 100644 index 0000000..4a650f3 --- /dev/null +++ b/files-el.patch @@ -0,0 +1,30 @@ +description: +;;; files.el --- file input and output commands for Emacs +---------------------------- +revision 1.938 +date: 2007-11-02 11:03:42 +0000; author: rfrancoise; state: Exp; lines: +2 -2; commitid: wgxFxIhiWr3NtZDs; +2007-11-02 Drake Wilson (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. +============================================================================= +Index: lisp/files.el +=================================================================== +RCS file: /sources/emacs/emacs/lisp/files.el,v +retrieving revision 1.937 +retrieving revision 1.938 +diff -u -r1.937 -r1.938 +--- lisp/files.el 26 Oct 2007 14:25:17 -0000 1.937 ++++ lisp/files.el 2 Nov 2007 11:03:42 -0000 1.938 +@@ -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.