diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-09-01 00:26:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-09-01 00:26:58 +0000 |
| commit | 2bba782ce5bb9038f0bcedf216a4863d72dd2448 (patch) | |
| tree | 9b16116a8533efddc2d3a098d7825d525935c61a /lisp/files.el | |
| parent | 450a90e2ea55a592346ed0a10d2e5a5e2597d920 (diff) | |
| download | emacs-2bba782ce5bb9038f0bcedf216a4863d72dd2448.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index a59c8eb5f86..545668d5660 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -175,7 +175,7 @@ nil means they are ignored; anything else means query. The command \\[normal-mode] always obeys local-variables lists and ignores this variable.") -(defconst enable-local-eval nil +(defconst enable-local-eval 'maybe "*Control processing of the \"variable\" `eval' in a file's local variables. The value can be t, nil or something else. A value of t means obey `eval' variables; @@ -607,7 +607,8 @@ for current buffer." (y-or-n-p (format "Set local variables as specified at end of %s? " (file-name-nondirectory buffer-file-name)))))))) (let ((continue t) - prefix prefixlen suffix beg) + prefix prefixlen suffix beg + (enable-local-eval enable-local-eval)) ;; The prefix is what comes before "local variables:" in its line. ;; The suffix is what comes after "local variables:" in its line. (skip-chars-forward " \t") @@ -665,8 +666,9 @@ for current buffer." (save-excursion (beginning-of-line) (set-window-start (selected-window) (point))) - (y-or-n-p (format "Process `eval' local variable in file %s? " - (file-name-nondirectory buffer-file-name))))))) + (setq enable-local-eval + (y-or-n-p (format "Process `eval' local variable in file %s? " + (file-name-nondirectory buffer-file-name)))))))) (save-excursion (eval val)) (message "Ignoring `eval:' in file's local variables"))) (t (make-local-variable var) |