Mercurial > emacs
comparison lisp/files.el @ 1365:20c84bc5ad97
(hack-local-variables): Ignore attempts to bind enable-local-eval.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 08 Oct 1992 06:14:35 +0000 |
| parents | 5e25dd40a160 |
| children | d8be1fdf53aa |
comparison
equal
deleted
inserted
replaced
| 1364:313f56268d18 | 1365:20c84bc5ad97 |
|---|---|
| 676 (error "Local variables entry is terminated incorrectly")) | 676 (error "Local variables entry is terminated incorrectly")) |
| 677 ;; Set the variable. "Variables" mode and eval are funny. | 677 ;; Set the variable. "Variables" mode and eval are funny. |
| 678 (cond ((eq var 'mode) | 678 (cond ((eq var 'mode) |
| 679 (funcall (intern (concat (downcase (symbol-name val)) | 679 (funcall (intern (concat (downcase (symbol-name val)) |
| 680 "-mode")))) | 680 "-mode")))) |
| 681 ((eq var 'enable-local-eval) | |
| 682 nil) | |
| 681 ((eq var 'eval) | 683 ((eq var 'eval) |
| 682 (if (and (not (string= (user-login-name) "root")) | 684 (if (and (not (string= (user-login-name) "root")) |
| 683 (or (eq enable-local-eval t) | 685 (or (eq enable-local-eval t) |
| 684 (and enable-local-eval | 686 (and enable-local-eval |
| 685 (save-window-excursion | 687 (save-window-excursion |