From 1bacc93e703944b40b9296237898ee66e203a2c1 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 16 Oct 1997 18:12:06 +0000 Subject: [PATCH] (describe-variable): Pass default value to completing-read. (describe-function): Likewise. --- lisp/help.el | 4 ++-- 1 file 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) -- 2.39.2