diff options
| author | Alan Mackenzie | 2005-11-10 08:07:23 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2005-11-10 08:07:23 +0000 |
| commit | f192689e61bb721206f4f9707942feb8932490a3 (patch) | |
| tree | fc1c072f3210d0a9b6e100e0d6767ad5f5831657 | |
| parent | af8308ec80df3e1f05efec6cb030e8f37693fd2c (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help-fns.el | 6 |
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 @@ | |||
| 1 | 2005-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 | |||
| 1 | 2005-11-10 Masatake YAMATO <jet@gyve.org> | 6 | 2005-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))))) |