Mercurial > emacs

changeset 20069:1f8e6121713d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-variable): Pass default value to completing-read. (describe-function): Likewise.
author Karl Heuer <kwzh@gnu.org>
date Thu, 16 Oct 1997 18:12:06 +0000
parents 9c4fd611c3ec
children 9561d65fd9c3
files lisp/help.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)