diff options
author | Juri Linkov <[email protected]> | 2009-10-11 23:53:22 +0000 |
---|---|---|
committer | Juri Linkov <[email protected]> | 2009-10-11 23:53:22 +0000 |
commit | 4d9b432332dbe48a7fd64ae24fcbf8a12232a8c2 (patch) | |
tree | 9931f51bc06302445e3e1c339bd477a311b03609 | |
parent | 585eedef9107d0f4769592c0f0324a073fe97283 (diff) |
(read-file-local-variable-value):
Provide default value only for bound variables.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/files-x.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd1333af15..cb99af982e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-10-11 Juri Linkov <[email protected]> + + * files-x.el (read-file-local-variable-value): + Provide default value only for bound variables (bug#4664). + 2009-10-11 Michael Albinus <[email protected]> * 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 3ad3f90e40..8261df18b5 100644 --- 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. |