Mercurial > emacs
changeset 44398:b31ff653a546
(mode-line-format, mode-line-modified)
(mode-line-mule-info, mode-line-buffer-identification)
(mode-line-modes, mode-line-position): Explicitly mark as risky.
(hack-one-local-variable): Don't recognize "mode-line-..." as risky.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Apr 2002 21:19:32 +0000 |
| parents | 307a3e75b2f7 |
| children | a399428859ff |
| files | lisp/files.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Thu Apr 04 21:10:44 2002 +0000 +++ b/lisp/files.el Thu Apr 04 21:19:32 2002 +0000 @@ -1934,6 +1934,12 @@ (put 'unread-command-events 'risky-local-variable t) (put 'max-lisp-eval-depth 'risky-local-variable t) (put 'max-specpdl-size 'risky-local-variable t) +(put 'mode-line-format 'risky-local-variable t) +(put 'mode-line-modified 'risky-local-variable t) +(put 'mode-line-mule-info 'risky-local-variable t) +(put 'mode-line-buffer-identification 'risky-local-variable t) +(put 'mode-line-modes 'risky-local-variable t) +(put 'mode-line-position 'risky-local-variable t) ;; This one is safe because the user gets to check it before it is used. (put 'compile-command 'safe-local-variable t) @@ -1957,7 +1963,7 @@ ;; Likewise for setting hook variables. ((or (get var '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$\\|^mode-line" + (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$" (symbol-name var)) (not (get var 'safe-local-variable)))) ;; Permit evalling a put of a harmless property.