From f192689e61bb721206f4f9707942feb8932490a3 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Thu, 10 Nov 2005 08:07:23 +0000 Subject: [PATCH] 2005-11-10 Alan Mackenzie * help-fns.el (describe-variable): Make C-h v work when a variable has variable documentation yet is unbound. --- lisp/ChangeLog | 5 +++++ lisp/help-fns.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 685c56bd6ba..72d2167870b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-11-10 Alan Mackenzie + + * help-fns.el (describe-variable): Make C-h v work when a variable + has variable documentation yet is unbound. + 2005-11-10 Masatake YAMATO * 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." (format "Describe variable (default %s): " v) "Describe variable: ") - obarray 'boundp t nil nil + obarray + '(lambda (vv) + (or (boundp vv) + (get vv 'variable-documentation))) + t nil nil (if (symbolp v) (symbol-name v)))) (list (if (equal val "") v (intern val))))) -- 2.39.2