Mercurial > emacs
changeset 1066:9b788095582b
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Sep 1992 00:26:58 +0000 |
| parents | f7477db25e8c |
| children | eb89a883529c |
| files | lisp/files.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Mon Aug 31 23:22:15 1992 +0000 +++ b/lisp/files.el Tue Sep 01 00:26:58 1992 +0000 @@ -175,7 +175,7 @@ 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 @@ (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 @@ (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)