Commit 2bba782c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent 450a90e2
...@@ -175,7 +175,7 @@ nil means they are ignored; anything else means query. ...@@ -175,7 +175,7 @@ nil means they are ignored; anything else means query.
The command \\[normal-mode] always obeys local-variables lists The command \\[normal-mode] always obeys local-variables lists
and ignores this variable.") 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. "*Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else. The value can be t, nil or something else.
A value of t means obey `eval' variables; A value of t means obey `eval' variables;
...@@ -607,7 +607,8 @@ for current buffer." ...@@ -607,7 +607,8 @@ for current buffer."
(y-or-n-p (format "Set local variables as specified at end of %s? " (y-or-n-p (format "Set local variables as specified at end of %s? "
(file-name-nondirectory buffer-file-name)))))))) (file-name-nondirectory buffer-file-name))))))))
(let ((continue t) (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 prefix is what comes before "local variables:" in its line.
;; The suffix is what comes after "local variables:" in its line. ;; The suffix is what comes after "local variables:" in its line.
(skip-chars-forward " \t") (skip-chars-forward " \t")
...@@ -665,8 +666,9 @@ for current buffer." ...@@ -665,8 +666,9 @@ for current buffer."
(save-excursion (save-excursion
(beginning-of-line) (beginning-of-line)
(set-window-start (selected-window) (point))) (set-window-start (selected-window) (point)))
(y-or-n-p (format "Process `eval' local variable in file %s? " (setq enable-local-eval
(file-name-nondirectory buffer-file-name))))))) (y-or-n-p (format "Process `eval' local variable in file %s? "
(file-name-nondirectory buffer-file-name))))))))
(save-excursion (eval val)) (save-excursion (eval val))
(message "Ignoring `eval:' in file's local variables"))) (message "Ignoring `eval:' in file's local variables")))
(t (make-local-variable var) (t (make-local-variable var)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment