mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

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

Browse Source 
Fixes: debbugs:17705
This commit is contained in:
Cameron Desautels 2014-06-11 22:18:54 -04:00 committed by Stefan Monnier
parent 08cedf2e40
commit e016b8f152
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
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

6
lisp/help.el
View File

@ -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)