From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 16 Oct 1997 18:12:06 +0000 (+0000)
Subject: (describe-variable): Pass default value to completing-read.
X-Git-Tag: emacs-20.3~3004
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bacc93e703944b40b9296237898ee66e203a2c1;p=emacs.git

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

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)