[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog files-x.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog files-x.el |
Date: |
Sun, 11 Oct 2009 23:50:42 +0000 |
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.