diff options
| -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. |