diff options
| author | Richard M. Stallman | 2006-01-26 17:55:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-01-26 17:55:04 +0000 |
| commit | f36d46caffc209065f29e7e7fa8daa01994d2e88 (patch) | |
| tree | 0075d49055dcc9482e9ea737cf864211e8383e3f | |
| parent | 8299f39695055ea59e604e7ed849dd2a65a9429c (diff) | |
| download | emacs-f36d46caffc209065f29e7e7fa8daa01994d2e88.tar.gz emacs-f36d46caffc209065f29e7e7fa8daa01994d2e88.zip | |
(risky-local-variable-p): Follow var aliases.
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index d1202f99d3a..112056e4f9e 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2450,6 +2450,10 @@ is specified, returning t if it is specified." | |||
| 2450 | "Non-nil if SYM could be dangerous as a file-local variable with value VAL. | 2450 | "Non-nil if SYM could be dangerous as a file-local variable with value VAL. |
| 2451 | If VAL is nil or omitted, the question is whether any value might be | 2451 | If VAL is nil or omitted, the question is whether any value might be |
| 2452 | dangerous." | 2452 | dangerous." |
| 2453 | ;; If this is an alias, check the base name. | ||
| 2454 | (condition-case nil | ||
| 2455 | (setq sym (indirect-variable sym)) | ||
| 2456 | (error nil)) | ||
| 2453 | (let ((safep (get sym 'safe-local-variable))) | 2457 | (let ((safep (get sym 'safe-local-variable))) |
| 2454 | (or (get sym 'risky-local-variable) | 2458 | (or (get sym 'risky-local-variable) |
| 2455 | (and (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$" | 2459 | (and (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$" |