Mercurial > emacs
changeset 65226:596278fa5d70
(risky-local-variable-p): Match `-predicates' and `-commands.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Aug 2005 10:36:17 +0000 |
| parents | 131c93f081eb |
| children | 35c9b3d1f7df |
| files | lisp/files.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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,