Mercurial > emacs
comparison lisp/files.el @ 15365:104a97493dcc
(hack-local-variables-prop-line): Bind enable-local-eval.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 Jun 1996 19:11:53 +0000 |
| parents | 19008fd7774d |
| children | 559d91fe836a |
comparison
equal
deleted
inserted
replaced
| 15364:a4e1db62f693 | 15365:104a97493dcc |
|---|---|
| 1248 (switch-to-buffer-other-window (current-buffer)) | 1248 (switch-to-buffer-other-window (current-buffer)) |
| 1249 (error | 1249 (error |
| 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. |
| 1259 Major modes can use this to examine user-specified local variables | 1260 Major modes can use this to examine user-specified local variables |
| 1260 in order to initialize other data structure based on them.") | 1261 in order to initialize other data structure based on them.") |