diff options
Diffstat (limited to 'lisp')
| -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))))) |