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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afb3b8dc165cd6fc51548db5f7a173ef54262a78..6048372f90b750adcbe648babe2888c7799531b1 100644 (file)
--- 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 df63e016c6394b82f43b56fab0cee616b7ba5eb8..76167eb27cfa1b404388bb18ade8caa56a00a60f 100644 (file)
--- 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.