diff options
| author | Richard M. Stallman | 1996-06-09 19:11:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-09 19:11:53 +0000 |
| commit | 2837b9df2e9d720225f2d38235bbded9a0922f3b (patch) | |
| tree | abc3310cf5951c933af10910e4f3bf1dbd9809c0 | |
| parent | c1b1350b942100f42d3287fdebdecdadac7951a3 (diff) | |
| download | emacs-2837b9df2e9d720225f2d38235bbded9a0922f3b.tar.gz emacs-2837b9df2e9d720225f2d38235bbded9a0922f3b.zip | |
(hack-local-variables-prop-line): Bind enable-local-eval.
| -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 | |||
| 1250 | (switch-to-buffer-other-frame (current-buffer)))))) | 1250 | (switch-to-buffer-other-frame (current-buffer)))))) |
| 1251 | (y-or-n-p (format "Set local variables as specified in -*- line of %s? " | 1251 | (y-or-n-p (format "Set local variables as specified in -*- line of %s? " |
| 1252 | (file-name-nondirectory buffer-file-name))))))) | 1252 | (file-name-nondirectory buffer-file-name))))))) |
| 1253 | (while result | 1253 | (let ((enable-local-eval enable-local-eval)) |
| 1254 | (hack-one-local-variable (car (car result)) (cdr (car result))) | 1254 | (while result |
| 1255 | (setq result (cdr result))))))) | 1255 | (hack-one-local-variable (car (car result)) (cdr (car result))) |
| 1256 | (setq result (cdr result)))))))) | ||
| 1256 | 1257 | ||
| 1257 | (defvar hack-local-variables-hook nil | 1258 | (defvar hack-local-variables-hook nil |
| 1258 | "Normal hook run after processing a file's local variables specs. | 1259 | "Normal hook run after processing a file's local variables specs. |