diff options
| -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) |