diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-16 18:12:06 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-16 18:12:06 +0000 |
| commit | 806b3d1a90e9315ff7dda883756f7ffe39d5e0dd (patch) | |
| tree | 7d3a5daace81d7f362fe24f09d7777c23c2d4f15 /lisp/help.el | |
| parent | 7601f34d4d739a198edc8e300be9bd8e4bb5171b (diff) | |
| download | emacs-806b3d1a90e9315ff7dda883756f7ffe39d5e0dd.tar.gz | |
(describe-variable): Pass default value to completing-read.
(describe-function): Likewise.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index 23901132b05..8ea8c405c19 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -515,7 +515,7 @@ C-w Display information on absence of warranty for GNU Emacs." (setq val (completing-read (if fn (format "Describe function (default %s): " fn) "Describe function: ") - obarray 'fboundp t)) + obarray 'fboundp t nil nil (symbol-name fn))) (list (if (equal val "") fn (intern val))))) (if function @@ -614,7 +614,7 @@ Returns the documentation as a string, also." (setq val (completing-read (if (symbolp v) (format "Describe variable (default %s): " v) "Describe variable: ") - obarray 'boundp t)) + obarray 'boundp t nil nil (symbol-name v))) (list (if (equal val "") v (intern val))))) (if (symbolp variable) |