# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1125398177 0
# Node ID 596278fa5d70fe2edb6e0fc12fca97b7ac494679
# Parent  131c93f081eb602540b2d022f53e28115bfb8fe8
(risky-local-variable-p): Match `-predicates' and `-commands.

diff -r 131c93f081eb -r 596278fa5d70 lisp/files.el
--- a/lisp/files.el	Tue Aug 30 10:35:09 2005 +0000
+++ b/lisp/files.el	Tue Aug 30 10:36:17 2005 +0000
@@ -2407,7 +2407,7 @@
 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,