# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 715307218 0
# Node ID 9b788095582b3579bc3d44d0dcc9f55fdcb9efff
# Parent  f7477db25e8cb3c8e2ceb2e28bade3550c4575f4
*** empty log message ***

diff -r f7477db25e8c -r 9b788095582b lisp/files.el
--- 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)