From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 Apr 1994 17:44:17 +0000 (+0000)
Subject: (hack-one-local-variable): Treat varnames ending in -form or -forms like eval.
X-Git-Tag: emacs-19.34~9119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37fd966693b940b887726535b7be8d7a7ce25009;p=emacs.git

(hack-one-local-variable): Treat varnames ending in -form or -forms like eval.
---

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