Mercurial > emacs
comparison lisp/files.el @ 7643:86001e904ef3
(hack-one-local-variable): Check properly for `defun.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 May 1994 04:55:57 +0000 |
| parents | 1c0885a92832 |
| children | 25cf7bc3b8c5 |
comparison
equal
deleted
inserted
replaced
| 7642:22f0d77ec290 | 7643:86001e904ef3 |
|---|---|
| 1134 (hack-one-local-variable-quotep (nth 1 val)) | 1134 (hack-one-local-variable-quotep (nth 1 val)) |
| 1135 (hack-one-local-variable-quotep (nth 2 val)) | 1135 (hack-one-local-variable-quotep (nth 2 val)) |
| 1136 ;; Only allow safe values of lisp-indent-hook; | 1136 ;; Only allow safe values of lisp-indent-hook; |
| 1137 ;; not functions. | 1137 ;; not functions. |
| 1138 (or (numberp (nth 3 val)) | 1138 (or (numberp (nth 3 val)) |
| 1139 (eq (nth 3 val) 'defun)) | 1139 (equal (nth 3 val) ''defun)) |
| 1140 (memq (nth 1 (nth 2 val)) | 1140 (memq (nth 1 (nth 2 val)) |
| 1141 '(lisp-indent-hook))) | 1141 '(lisp-indent-hook))) |
| 1142 ;; Permit eval if not root and user says ok. | 1142 ;; Permit eval if not root and user says ok. |
| 1143 (and (not (string= (user-login-name) "root")) | 1143 (and (not (string= (user-login-name) "root")) |
| 1144 (or (eq enable-local-eval t) | 1144 (or (eq enable-local-eval t) |