From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Oct 2002 22:34:14 +0000 (+0000)
Subject: (risky-local-variable-p): VAL=nil has special meaning.
X-Git-Tag: ttn-vms-21-2-B4~12720
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d8781d856ad2d8af7f735737441c01a20258e71;p=emacs.git

(risky-local-variable-p): VAL=nil has special meaning.
---

diff --git a/lisp/files.el b/lisp/files.el
index be6cdfeb9b7..f050713e135 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2061,7 +2061,8 @@ is specified, returning t if it is specified."
 (put 'compile-command 'safe-local-variable 'stringp)
 
 (defun risky-local-variable-p (sym val)
-  "Non-nil if SYM could be dangerous as a file-local variable with value VAL."
+  "Non-nil if SYM could be dangerous as a file-local variable with value VAL.
+If VAL is nil, the question is whether any value might be dangerous."
   (let ((safep (get sym 'safe-local-variable)))
     (or (memq sym ignored-local-variables)
 	(get sym 'risky-local-variable)
@@ -2071,7 +2072,8 @@ is specified, returning t if it is specified."
 	;; If the safe-local-variable property isn't t or nil,
 	;; then it must return non-nil on the proposed value to be safe.
 	(and (not (memq safep '(t nil)))
-	     (not (funcall safep val))))))
+	     (or (null val)
+		 (not (funcall safep val)))))))
 
 (defcustom safe-local-eval-forms nil
   "*Expressions that are considered \"safe\" in an `eval:' local variable.