(describe-variable): Pass default value to completing-read.

(describe-function): Likewise.

diff --git a/lisp/help.el b/lisp/help.el
index 23901132b058456732cc244c007f5a5da7377804..8ea8c405c1900de3d96b037357d7c1330a006518 100644 (file)
--- 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)