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

diff --git a/lisp/files.el b/lisp/files.el
index 1613f3add9509a2f7f7aac2713425830f8eb9b20..4004cb2324b114e847d0452ab6fb1e7085ece52d 100644 (file)
--- 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,