diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-07 17:44:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-07 17:44:17 +0000 |
| commit | 37fd966693b940b887726535b7be8d7a7ce25009 (patch) | |
| tree | f5a7734742d3d9ff359db07b0d7f6f0dcdd0c110 /lisp/files.el | |
| parent | 1576fe1dcee16f00470e61616e6cb74753272b69 (diff) | |
| download | emacs-37fd966693b940b887726535b7be8d7a7ce25009.tar.gz | |
(hack-one-local-variable): Treat varnames ending in -form or -forms like eval.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index f1989dac173..dc5d11e3229 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1112,7 +1112,8 @@ If `enable-local-variables' is nil, this function does not check for a ;; "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 |