Commit e016b8f1 authored by Cameron Desautels's avatar Cameron Desautels Committed by Stefan Monnier
Browse files

* lisp/help.el (where-is): Use `default' arg of completing-read.

Fixes: debbugs:17705
parent 08cedf2e
2014-06-12 Cameron Desautels <camdez@gmail.com> (tiny change)
* help.el (where-is): Use `default' arg of completing-read (bug#17705).
2014-06-12 Kevin Ryde <user42_kevin@yahoo.com.au>
 
* files.el (auto-mode-alist): Map .ad files to xdefaults-mode
......
......@@ -517,8 +517,10 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
(if fn
(format "Where is command (default %s): " fn)
"Where is command: ")
obarray 'commandp t))
(list (if (equal val "") fn (intern val)) current-prefix-arg)))
obarray 'commandp t nil nil
(and fn (symbol-name fn))))
(list (unless (equal val "") (intern val))
current-prefix-arg)))
(unless definition (error "No command"))
(let ((func (indirect-function definition))
(defs nil)
......
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