(byte-compile-file): Bind enable-local-variables to :safe,

and make normal-mode obey it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52e2549235c48f9aa884850e3e3b0c5ef92f0169..c965c89b76f4768854c2e20c5ffb0202db9c4318 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2006-04-11  Richard Stallman  <rms@gnu.org>
+
+       * emacs-lisp/bytecomp.el (byte-compile-file):
+       Bind enable-local-variables to :safe, and make normal-mode obey it.
+
+       * files.el (enable-local-variables): Allow value :safe.
+       (normal-mode): Doc fix.
+       (hack-local-variables): Implement enable-local-variables = :safe.
+       (hack-local-variables-confirm): Don't prevent quitting.
+
 2006-04-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * loadhist.el (unload-feature): A bit of sanity check of

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 83620f3344f7b0c3a5a2e1ab7bb178f8833543a6..da284e94548512ce29aba755cf26c49b78caaac0 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1650,8 +1650,12 @@ The value is non-nil if there were no errors, nil if errors."
       ;; If they change the file name, then change it for the output also.
       (let ((buffer-file-name filename)
            (default-major-mode 'emacs-lisp-mode)
+           ;; Ignore unsafe local variables.
+           ;; We only care about a few of them for our purposes.
+           (enable-local-variables :safe)
            (enable-local-eval nil))
-        (normal-mode)
+       ;; Arg of t means don't alter enable-local-variables.
+        (normal-mode t)
         (setq filename buffer-file-name))
       ;; Set the default directory, in case an eval-when-compile uses it.
       (setq default-directory (file-name-directory filename)))