Commit 1bacc93e authored by Karl Heuer's avatar Karl Heuer

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

(describe-function): Likewise.
parent 1577a8fd
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment