(find-file-visit-truename): Fix safe-local-variable value.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dbc35487301..ab4cdf34516 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-01  Richard Stallman  <rms@gnu.org>
+
+        * files.el (find-file-visit-truename): Fix safe-local-variable value.
+
 2007-06-29  Juanma Barranquero  <lekktu@gmail.com>
 
         * generic-x.el (generic-define-mswindows-modes)
diff --git a/lisp/files.el b/lisp/files.el
index 5be738bd452..706b810fb0b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -162,7 +162,7 @@ The truename of a file is found by chasing all links
 both at the file level and at the levels of the containing directories."
   :type 'boolean
   :group 'find-file)
-(put 'find-file-visit-truename 'safe-local-variable 'boolean)
+(put 'find-file-visit-truename 'safe-local-variable 'booleanp)
 
 (defcustom revert-without-query nil
   "Specify which files should be reverted without query.