# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877025526 0
# Node ID 1f8e6121713dedc5c36349d3ac9cedd87f72d047
# Parent  9c4fd611c3ec4967e0d5a9f67300467e2112797f
(describe-variable): Pass default value to completing-read.
(describe-function): Likewise.

diff -r 9c4fd611c3ec -r 1f8e6121713d lisp/help.el
--- a/lisp/help.el	Thu Oct 16 18:09:31 1997 +0000
+++ b/lisp/help.el	Thu Oct 16 18:12:06 1997 +0000
@@ -515,7 +515,7 @@
      (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 @@
      (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)