1895 |
(put 'ignored-local-variables 'risky-local-variable t) |
(put 'ignored-local-variables 'risky-local-variable t) |
1896 |
(put 'eval 'risky-local-variable t) |
(put 'eval 'risky-local-variable t) |
1897 |
(put 'file-name-handler-alist 'risky-local-variable t) |
(put 'file-name-handler-alist 'risky-local-variable t) |
1898 |
|
(put 'minor-mode-alist 'risky-local-variable t) |
1899 |
(put 'minor-mode-map-alist 'risky-local-variable t) |
(put 'minor-mode-map-alist 'risky-local-variable t) |
1900 |
|
(put 'minor-mode-overriding-map-alist 'risky-local-variable t) |
1901 |
|
(put 'overriding-local-map 'risky-local-variable t) |
1902 |
|
(put 'overriding-terminal-local-map 'risky-local-variable t) |
1903 |
|
(put 'auto-mode-alist 'risky-local-variable t) |
1904 |
(put 'after-load-alist 'risky-local-variable t) |
(put 'after-load-alist 'risky-local-variable t) |
1905 |
(put 'buffer-file-name 'risky-local-variable t) |
(put 'buffer-file-name 'risky-local-variable t) |
1906 |
|
(put 'buffer-undo-list 'risky-local-variable t) |
1907 |
(put 'buffer-auto-save-file-name 'risky-local-variable t) |
(put 'buffer-auto-save-file-name 'risky-local-variable t) |
1908 |
(put 'buffer-file-truename 'risky-local-variable t) |
(put 'buffer-file-truename 'risky-local-variable t) |
1909 |
|
(put 'default-text-properties 'risky-local-variable t) |
1910 |
(put 'exec-path 'risky-local-variable t) |
(put 'exec-path 'risky-local-variable t) |
1911 |
(put 'load-path 'risky-local-variable t) |
(put 'load-path 'risky-local-variable t) |
1912 |
(put 'exec-directory 'risky-local-variable t) |
(put 'exec-directory 'risky-local-variable t) |
1917 |
(put 'outline-level 'risky-local-variable t) |
(put 'outline-level 'risky-local-variable t) |
1918 |
(put 'rmail-output-file-alist 'risky-local-variable t) |
(put 'rmail-output-file-alist 'risky-local-variable t) |
1919 |
(put 'font-lock-defaults 'risky-local-variable t) |
(put 'font-lock-defaults 'risky-local-variable t) |
1920 |
|
(put 'special-display-buffer-names 'risky-local-variable t) |
1921 |
|
(put 'frame-title-format 'risky-local-variable t) |
1922 |
|
(put 'global-mode-string 'risky-local-variable t) |
1923 |
|
(put 'header-line-format 'risky-local-variable t) |
1924 |
|
(put 'icon-title-format 'risky-local-variable t) |
1925 |
|
(put 'input-method-alist 'risky-local-variable t) |
1926 |
|
(put 'vc-mode 'risky-local-variable t) |
1927 |
|
(put 'imenu-generic-expression 'risky-local-variable t) |
1928 |
|
(put 'imenu-index-alist 'risky-local-variable t) |
1929 |
|
(put 'standard-input 'risky-local-variable t) |
1930 |
|
(put 'standard-output 'risky-local-variable t) |
1931 |
|
(put 'unread-command-events 'risky-local-variable t) |
1932 |
|
(put 'max-lisp-eval-depth 'risky-local-variable t) |
1933 |
|
(put 'max-specpdl-size 'risky-local-variable t) |
1934 |
|
|
1935 |
;; 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. |
1936 |
(put 'compile-command 'safe-local-variable t) |
(put 'compile-command 'safe-local-variable t) |
1940 |
|
|
1941 |
(defun hack-one-local-variable (var val) |
(defun hack-one-local-variable (var val) |
1942 |
"\"Set\" one variable in a local variables spec. |
"\"Set\" one variable in a local variables spec. |
1943 |
A few variable names are treated specially." |
A few patterns are specified so that any name which matches one |
1944 |
|
is considered risky." |
1945 |
(cond ((eq var 'mode) |
(cond ((eq var 'mode) |
1946 |
(funcall (intern (concat (downcase (symbol-name val)) |
(funcall (intern (concat (downcase (symbol-name val)) |
1947 |
"-mode")))) |
"-mode")))) |
1954 |
;; Likewise for setting hook variables. |
;; Likewise for setting hook variables. |
1955 |
((or (get var 'risky-local-variable) |
((or (get var 'risky-local-variable) |
1956 |
(and |
(and |
1957 |
(string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$" |
(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" |
1958 |
(symbol-name var)) |
(symbol-name var)) |
1959 |
(not (get var 'safe-local-variable)))) |
(not (get var 'safe-local-variable)))) |
1960 |
;; Permit evalling a put of a harmless property. |
;; Permit evalling a put of a harmless property. |