From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 29 Apr 2006 13:59:52 +0000 (+0000)
Subject: (safe-local-variable-p): Remove support for the special value t.
X-Git-Tag: emacs-pretest-22.0.90~2908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80aa469540e939c8d7dcdf27021e78f12d0b957a;p=emacs.git

(safe-local-variable-p): Remove support for the special value t.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afb3b8dc165..6048372f90b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2006-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* files.el (safe-local-variable-p): Remove support for the special
+	value t.
+
+	* textmodes/paragraphs.el (sentence-end-without-space):
+	Fix safety predicate.
+	(sentence-end-double-space, sentence-end-without-period)
+	(paragraph-ignore-fill-prefix):
+	* textmodes/fill.el (colon-double-space):
+	* abbrev.el (abbrev-mode): Tighten the safety predicate.
+
+	* subr.el (booleanp): New fun.
+
+	* textmodes/reftex-vars.el (reftex-guess-label-type):
+	Tighten the safety predicate.
+
 2006-04-28  Kim F. Storm  <storm@cua.dk>
 
 	* progmodes/grep.el (defgroup grep): Doc fix.
@@ -31,12 +48,12 @@
 
 2006-04-28  Michael Albinus  <michael.albinus@gmx.de>
 
-	* net/tramp.el (tramp-completion-file-name-handler): Disable
-	Tramp's functionality while loading Tramp itself.
-	(tramp-register-file-name-handlers): That's a defsubst now.  Code
-	from `tramp-repair-jka-compr' moved here.  Apply it via
+	* net/tramp.el (tramp-completion-file-name-handler):
+	Disable Tramp's functionality while loading Tramp itself.
+	(tramp-register-file-name-handlers): That's a defsubst now.
+	Code from `tramp-repair-jka-compr' moved here.  Apply it via
 	`after-init-hook'.
-	(tramp-repair-jka-compr): Removed.
+	(tramp-repair-jka-compr): Remove.
 
 2006-04-27  Jay Belanger  <belanger@truman.edu>
 
diff --git a/lisp/files.el b/lisp/files.el
index df63e016c63..76167eb27cf 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2652,15 +2652,11 @@ It is safe if any of these conditions are met:
  * There is a matching entry (SYM . VAL) in the
    `safe-local-variable-values' user option.
 
- * The `safe-local-variable' property of SYM is t.
-
  * The `safe-local-variable' property of SYM is a function that
    evaluates to a non-nil value with VAL as an argument."
   (or (member (cons sym val) safe-local-variable-values)
       (let ((safep (get sym 'safe-local-variable)))
-	(or (eq safep t)
-	    (and (functionp safep)
-		 (funcall safep val))))))
+        (and (functionp safep) (funcall safep val)))))
 
 (defun risky-local-variable-p (sym &optional ignored)
   "Non-nil if SYM could be dangerous as a file-local variable.