1934 |
(put 'unread-command-events 'risky-local-variable t) |
(put 'unread-command-events 'risky-local-variable t) |
1935 |
(put 'max-lisp-eval-depth 'risky-local-variable t) |
(put 'max-lisp-eval-depth 'risky-local-variable t) |
1936 |
(put 'max-specpdl-size 'risky-local-variable t) |
(put 'max-specpdl-size 'risky-local-variable t) |
1937 |
|
(put 'mode-line-format 'risky-local-variable t) |
1938 |
|
(put 'mode-line-modified 'risky-local-variable t) |
1939 |
|
(put 'mode-line-mule-info 'risky-local-variable t) |
1940 |
|
(put 'mode-line-buffer-identification 'risky-local-variable t) |
1941 |
|
(put 'mode-line-modes 'risky-local-variable t) |
1942 |
|
(put 'mode-line-position 'risky-local-variable t) |
1943 |
|
|
1944 |
;; This one is safe because the user gets to check it before it is used. |
;; This one is safe because the user gets to check it before it is used. |
1945 |
(put 'compile-command 'safe-local-variable t) |
(put 'compile-command 'safe-local-variable t) |
1963 |
;; Likewise for setting hook variables. |
;; Likewise for setting hook variables. |
1964 |
((or (get var 'risky-local-variable) |
((or (get var 'risky-local-variable) |
1965 |
(and |
(and |
1966 |
(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$" |
1967 |
(symbol-name var)) |
(symbol-name var)) |
1968 |
(not (get var 'safe-local-variable)))) |
(not (get var 'safe-local-variable)))) |
1969 |
;; Permit evalling a put of a harmless property. |
;; Permit evalling a put of a harmless property. |