Mercurial > emacs
comparison lisp/files.el @ 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 | 974edbcc8ecd |
children | 2e7d567e793b |
comparison
equal
deleted
inserted
replaced
44397:307a3e75b2f7 | 44398:b31ff653a546 |
---|---|
1932 (put 'standard-input 'risky-local-variable t) | 1932 (put 'standard-input 'risky-local-variable t) |
1933 (put 'standard-output 'risky-local-variable t) | 1933 (put 'standard-output 'risky-local-variable t) |
1934 (put 'unread-command-events 'risky-local-variable t) | 1934 (put 'unread-command-events 'risky-local-variable t) |
1935 (put 'max-lisp-eval-depth 'risky-local-variable t) | 1935 (put 'max-lisp-eval-depth 'risky-local-variable t) |
1936 (put 'max-specpdl-size 'risky-local-variable t) | 1936 (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) | |
1937 | 1943 |
1938 ;; This one is safe because the user gets to check it before it is used. | 1944 ;; This one is safe because the user gets to check it before it is used. |
1939 (put 'compile-command 'safe-local-variable t) | 1945 (put 'compile-command 'safe-local-variable t) |
1940 | 1946 |
1941 (defun hack-one-local-variable-quotep (exp) | 1947 (defun hack-one-local-variable-quotep (exp) |
1955 nil) | 1961 nil) |
1956 ;; "Setting" eval means either eval it or do nothing. | 1962 ;; "Setting" eval means either eval it or do nothing. |
1957 ;; Likewise for setting hook variables. | 1963 ;; Likewise for setting hook variables. |
1958 ((or (get var 'risky-local-variable) | 1964 ((or (get var 'risky-local-variable) |
1959 (and | 1965 (and |
1960 (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" | 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$" |
1961 (symbol-name var)) | 1967 (symbol-name var)) |
1962 (not (get var 'safe-local-variable)))) | 1968 (not (get var 'safe-local-variable)))) |
1963 ;; Permit evalling a put of a harmless property. | 1969 ;; Permit evalling a put of a harmless property. |
1964 ;; if the args do nothing tricky. | 1970 ;; if the args do nothing tricky. |
1965 (if (or (and (eq var 'eval) | 1971 (if (or (and (eq var 'eval) |