[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/files.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/files.el |
Date: |
Thu, 26 Jan 2006 17:55:05 +0000 |
Index: emacs/lisp/files.el
diff -u emacs/lisp/files.el:1.801 emacs/lisp/files.el:1.802
--- emacs/lisp/files.el:1.801 Tue Jan 17 18:11:49 2006
+++ emacs/lisp/files.el Thu Jan 26 17:55:04 2006
@@ -2450,6 +2450,10 @@
"Non-nil if SYM could be dangerous as a file-local variable with value VAL.
If VAL is nil or omitted, the question is whether any value might be
dangerous."
+ ;; If this is an alias, check the base name.
+ (condition-case nil
+ (setq sym (indirect-variable sym))
+ (error nil))
(let ((safep (get sym 'safe-local-variable)))
(or (get sym 'risky-local-variable)
(and (string-match
"-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$"