diff options
| author | Romain Francoise <romain@orebokech.com> | 2007-11-02 11:03:43 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2007-11-02 11:03:43 +0000 |
| commit | 3020ee9278142603cb65e04f75cdcf363637860d (patch) | |
| tree | b99f16aac3b4265ffb35c40dfa0f50060adf3034 /lisp/files.el | |
| parent | 8e004a4407ad7524372b0a63566bf7b501da2776 (diff) | |
| download | emacs-3020ee9278142603cb65e04f75cdcf363637860d.tar.gz emacs-3020ee9278142603cb65e04f75cdcf363637860d.tar.bz2 emacs-3020ee9278142603cb65e04f75cdcf363637860d.zip | |
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.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6b0bd26efe8..f2caa0abe82 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2821,8 +2821,8 @@ is specified, returning t if it is specified." ;; 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. |