From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Aug 2005 10:36:17 +0000 (+0000)
Subject: (risky-local-variable-p): Match `-predicates' and `-commands.
X-Git-Tag: emacs-pretest-22.0.90~7363
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e01e6da53f3c78e7f06af3194ed65e8192dcab0;p=emacs.git

(risky-local-variable-p): Match `-predicates' and `-commands.
---

diff --git a/lisp/files.el b/lisp/files.el
index 1613f3add95..4004cb2324b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2407,7 +2407,7 @@ If VAL is nil or omitted, the question is whether any value might be
 dangerous."
   (let ((safep (get sym 'safe-local-variable)))
     (or (get sym 'risky-local-variable)
-	(and (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$"
+	(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$"
 			   (symbol-name sym))
 	     (not safep))
 	;; If the safe-local-variable property isn't t or nil,