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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dbc35487301665b131c8900bc0752f8d408a7b15..ab4cdf345163ac9c1d8562af81a8fa43567acc28 100644 (file)
--- 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 5be738bd452786abbbc1cc233fc522c98851265f..706b810fb0b6ba41c6e2a506f41866f20ac6de8b 100644 (file)
--- 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.