(read-file-local-variable-value):

Provide default value only for bound variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd1333af1520a7281b758653c6fc936d43e9b01a..cb99af982e5b87a3c84d4bd255d299bd643e1760 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-11  Juri Linkov  <juri@jurta.org>
+
+       * files-x.el (read-file-local-variable-value):
+       Provide default value only for bound variables (bug#4664).
+
 2009-10-11  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-local-host-p): Function shall return nil for

diff --git a/lisp/files-x.el b/lisp/files-x.el
index 3ad3f90e40748c1e6c1c6d38a4d60c90aecee846..8261df18b5169c81f715a13c7353b0048967e43c 100644 (file)
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -92,7 +92,8 @@ Intended to be used in the `interactive' spec of
                         nil 'set-variable-value-history
                         (format "%S"
                                 (cond ((eq variable 'unibyte) t)
-                                      (t (symbol-value variable))))))))))
+                                      ((boundp variable)
+                                       (symbol-value variable))))))))))
 
 (defun read-file-local-variable-mode ()
   "Read per-directory file-local variable's mode using completion.