From 37fd966693b940b887726535b7be8d7a7ce25009 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 Apr 1994 17:44:17 +0000 Subject: [PATCH] (hack-one-local-variable): Treat varnames ending in -form or -forms like eval. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5