diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-09 19:11:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-09 19:11:53 +0000 |
| commit | 2837b9df2e9d720225f2d38235bbded9a0922f3b (patch) | |
| tree | abc3310cf5951c933af10910e4f3bf1dbd9809c0 /lisp/files.el | |
| parent | c1b1350b942100f42d3287fdebdecdadac7951a3 (diff) | |
| download | emacs-2837b9df2e9d720225f2d38235bbded9a0922f3b.tar.gz | |
(hack-local-variables-prop-line): Bind enable-local-eval.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 7a3bb717c2a..d8f7c220dc7 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1250,9 +1250,10 @@ If `enable-local-variables' is nil, this function does not check for a (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. |