aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlan Mackenzie2005-11-10 08:07:23 +0000
committerAlan Mackenzie2005-11-10 08:07:23 +0000
commitf192689e61bb721206f4f9707942feb8932490a3 (patch)
treefc1c072f3210d0a9b6e100e0d6767ad5f5831657
parentaf8308ec80df3e1f05efec6cb030e8f37693fd2c (diff)
downloademacs-f192689e61bb721206f4f9707942feb8932490a3.tar.gz
emacs-f192689e61bb721206f4f9707942feb8932490a3.zip
2005-11-10 Alan Mackenzie <acm@muc.de>
* help-fns.el (describe-variable): Make C-h v work when a variable has variable documentation yet is unbound.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/help-fns.el6
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 685c56bd6ba..72d2167870b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12005-11-10 Alan Mackenzie <acm@muc.de>
2
3 * help-fns.el (describe-variable): Make C-h v work when a variable
4 has variable documentation yet is unbound.
5
12005-11-10 Masatake YAMATO <jet@gyve.org> 62005-11-10 Masatake YAMATO <jet@gyve.org>
2 7
3 * man.el (Man-highlight-references): Set an empty 8 * man.el (Man-highlight-references): Set an empty
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 9d4d3ea9b08..6e1bd62d04b 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -496,7 +496,11 @@ it is displayed along with the global value."
496 (format 496 (format
497 "Describe variable (default %s): " v) 497 "Describe variable (default %s): " v)
498 "Describe variable: ") 498 "Describe variable: ")
499 obarray 'boundp t nil nil 499 obarray
500 '(lambda (vv)
501 (or (boundp vv)
502 (get vv 'variable-documentation)))
503 t nil nil
500 (if (symbolp v) (symbol-name v)))) 504 (if (symbolp v) (symbol-name v))))
501 (list (if (equal val "") 505 (list (if (equal val "")
502 v (intern val))))) 506 v (intern val)))))