diff options
| author | Richard M. Stallman | 1994-05-25 20:43:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-25 20:43:21 +0000 |
| commit | f6fa3ee3c56d8c7d33ea22ab55aadfb6a396a2a7 (patch) | |
| tree | c43fc8bd7440113eeb7d762b073924cf048ddc2c | |
| parent | b29554179812254d73039ca9b366d080d51969a6 (diff) | |
| download | emacs-f6fa3ee3c56d8c7d33ea22ab55aadfb6a396a2a7.tar.gz emacs-f6fa3ee3c56d8c7d33ea22ab55aadfb6a396a2a7.zip | |
Add more risky-local-variable properties.
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index da51f543149..c2f945d5682 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1105,11 +1105,15 @@ If `enable-local-variables' is nil, this function does not check for a | |||
| 1105 | "Variables to be ignored in a file's local variable spec.") | 1105 | "Variables to be ignored in a file's local variable spec.") |
| 1106 | 1106 | ||
| 1107 | ;; Get confirmation before setting these variables as locals in a file. | 1107 | ;; Get confirmation before setting these variables as locals in a file. |
| 1108 | (put 'enable-local-eval 'risky-local-variable t) | ||
| 1108 | (put 'eval 'risky-local-variable t) | 1109 | (put 'eval 'risky-local-variable t) |
| 1109 | (put 'file-name-handler-alist 'risky-local-variable t) | 1110 | (put 'file-name-handler-alist 'risky-local-variable t) |
| 1110 | (put 'minor-mode-map-alist 'risky-local-variable t) | 1111 | (put 'minor-mode-map-alist 'risky-local-variable t) |
| 1111 | (put 'after-load-alist 'risky-local-variable t) | 1112 | (put 'after-load-alist 'risky-local-variable t) |
| 1112 | 1113 | (put 'buffer-file-name 'risky-local-variable t) | |
| 1114 | (put 'buffer-auto-save-file-name 'risky-local-variable t) | ||
| 1115 | (put 'buffer-file-truename 'risky-local-variable t) | ||
| 1116 | |||
| 1113 | (defun hack-one-local-variable-quotep (exp) | 1117 | (defun hack-one-local-variable-quotep (exp) |
| 1114 | (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp)))) | 1118 | (and (consp exp) (eq (car exp) 'quote) (consp (cdr exp)))) |
| 1115 | 1119 | ||