From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 Jan 2006 17:55:04 +0000 (+0000)
Subject: (risky-local-variable-p): Follow var aliases.
X-Git-Tag: emacs-pretest-22.0.90~4569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f36d46caffc209065f29e7e7fa8daa01994d2e88;p=emacs.git

(risky-local-variable-p): Follow var aliases.
---

diff --git a/lisp/files.el b/lisp/files.el
index d1202f99d3a..112056e4f9e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2450,6 +2450,10 @@ is specified, returning t if it is specified."
   "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$"