Mercurial > emacs
changeset 6733:bf9c1e9a4055
(hack-one-local-variable): Treat varnames ending in -form or -forms like eval.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 Apr 1994 17:44:17 +0000 |
| parents | 8ee6fe9b9fe9 |
| children | 6e61dbbfce80 |
| files | lisp/files.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Thu Apr 07 17:16:44 1994 +0000 +++ b/lisp/files.el Thu Apr 07 17:44:17 1994 +0000 @@ -1112,7 +1112,8 @@ ;; "Setting" eval means either eval it or do nothing. ;; Likewise for setting hook variables. ((or (memq var '(eval file-name-handler-alist after-load-alist)) - (string-match "-hooks?$\\|-functions?$" (symbol-name var))) + (string-match "-hooks?$\\|-functions?$\\|-forms?$" + (symbol-name var))) (if (and (not (string= (user-login-name) "root")) (or (eq enable-local-eval t) (and enable-local-eval