changeset 15365:104a97493dcc

(hack-local-variables-prop-line): Bind enable-local-eval.
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 Jun 1996 19:11:53 +0000
parents a4e1db62f693
children 32ab7b623b9b
files lisp/files.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sun Jun 09 19:10:58 1996 +0000
+++ b/lisp/files.el	Sun Jun 09 19:11:53 1996 +0000
@@ -1250,9 +1250,10 @@
 				(switch-to-buffer-other-frame (current-buffer))))))
 			  (y-or-n-p (format "Set local variables as specified in -*- line of %s? "
 					    (file-name-nondirectory buffer-file-name)))))))
-	  (while result
-	    (hack-one-local-variable (car (car result)) (cdr (car result)))
-	    (setq result (cdr result)))))))
+	  (let ((enable-local-eval enable-local-eval))
+	    (while result
+	      (hack-one-local-variable (car (car result)) (cdr (car result)))
+	      (setq result (cdr result))))))))
 
 (defvar hack-local-variables-hook nil
   "Normal hook run after processing a file's local variables specs.