[Emacs-diffs] emacs/lisp ChangeLog files-x.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/10/11 23:50:41

Modified files:
        lisp           : ChangeLog files-x.el 

Log message:
        (read-file-local-variable-value):
        Provide default value only for bound variables.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16405&r2=1.16406
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files-x.el?cvsroot=emacs&r1=1.4&r2=1.5

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16405
retrieving revision 1.16406
diff -u -b -r1.16405 -r1.16406
--- ChangeLog   11 Oct 2009 15:00:46 -0000      1.16405
+++ ChangeLog   11 Oct 2009 23:50:38 -0000      1.16406
@@ -1,3 +1,8 @@
+2009-10-11  Juri Linkov  <address@hidden>
+
+       * files-x.el (read-file-local-variable-value):
+       Provide default value only for bound variables.
+
 2009-10-11  Michael Albinus  <address@hidden>
 
        * net/tramp.el (tramp-local-host-p): Function shall return nil for

Index: files-x.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files-x.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- files-x.el  7 Oct 2009 14:33:37 -0000       1.4
+++ files-x.el  11 Oct 2009 23:50:41 -0000      1.5
@@ -92,7 +92,8 @@
                         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.