Mercurial > emacs

changeset 69937:b47563345c03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-file): Bind enable-local-variables to :safe, and make normal-mode obey it.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Apr 2006 17:58:49 +0000
parents 19030d5ea7fe
children f487e8bdc76c
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Tue Apr 11 17:57:34 2006 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Tue Apr 11 17:58:49 2006 +0000
@@ -1650,8 +1650,12 @@
       ;; 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)))