diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-07 19:03:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-07 19:03:17 +0000 |
| commit | be0218a89c9a4c4434ba8fc138df729b4640b7c1 (patch) | |
| tree | 771095a53075394b3b6a9889b278e6d00d6df297 /lisp/files.el | |
| parent | 37fd966693b940b887726535b7be8d7a7ce25009 (diff) | |
| download | emacs-be0218a89c9a4c4434ba8fc138df729b4640b7c1.tar.gz | |
(hack-one-local-variable): Test for risky-local-variable property.
Put such properties on some variables, including minor-mode-map-alist.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index dc5d11e3229..0cd4a955403 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1101,6 +1101,12 @@ If `enable-local-variables' is nil, this function does not check for a '(enable-local-eval) "Variables to be ignored in a file's local variable spec.") +;; Get confirmation before setting these variables as locals in a file. +(put 'eval 'risky-local-variable t) +(put 'file-name-handler-alist 'risky-local-variable t) +(put 'minor-mode-map-alist 'risky-local-variable t) +(put 'after-load-alist 'risky-local-variable t) + ;; "Set" one variable in a local variables spec. ;; A few variable names are treated specially. (defun hack-one-local-variable (var val) @@ -1111,7 +1117,7 @@ If `enable-local-variables' is nil, this function does not check for a nil) ;; "Setting" eval means either eval it or do nothing. ;; Likewise for setting hook variables. - ((or (memq var '(eval file-name-handler-alist after-load-alist)) + ((or (get var 'risky-local-variable) (string-match "-hooks?$\\|-functions?$\\|-forms?$" (symbol-name var))) (if (and (not (string= (user-login-name) "root")) |