From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Apr 2002 21:19:32 +0000 (+0000)
Subject: (mode-line-format, mode-line-modified)
X-Git-Tag: ttn-vms-21-2-B4~15778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec4ba9e3bcde66ce8583c8cf531371127fa80a37;p=emacs.git

(mode-line-format, mode-line-modified)
(mode-line-mule-info, mode-line-buffer-identification)
(mode-line-modes, mode-line-position): Explicitly mark as risky.
(hack-one-local-variable): Don't recognize "mode-line-..." as risky.
---

diff --git a/lisp/files.el b/lisp/files.el
index 8516212cdd7..23e4948e71a 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1934,6 +1934,12 @@ is specified, returning t if it is specified."
 (put 'unread-command-events 'risky-local-variable t)
 (put 'max-lisp-eval-depth 'risky-local-variable t)
 (put 'max-specpdl-size 'risky-local-variable t)
+(put 'mode-line-format 'risky-local-variable t)
+(put 'mode-line-modified 'risky-local-variable t)
+(put 'mode-line-mule-info 'risky-local-variable t)
+(put 'mode-line-buffer-identification 'risky-local-variable t)
+(put 'mode-line-modes 'risky-local-variable t)
+(put 'mode-line-position 'risky-local-variable t)
 
 ;; This one is safe because the user gets to check it before it is used.
 (put 'compile-command 'safe-local-variable t)
@@ -1957,7 +1963,7 @@ is considered risky."
 	;; Likewise for setting hook variables.
 	((or (get var 'risky-local-variable)
 	     (and
-	      (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$\\|^mode-line"
+	      (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$"
 			    (symbol-name var))
 	      (not (get var 'safe-local-variable))))
 	 ;; Permit evalling a put of a harmless property.