mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(where-is): Fail gracefully when not passed a command.

Browse Source
This commit is contained in:
Juanma Barranquero 2007-02-28 12:50:43 +00:00
parent 8193fc4ba8
commit 463d75acd9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/help.el
View File

@ -491,6 +491,7 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
"Where is command: ")
obarray 'commandp t))
(list (if (equal val "") fn (intern val)) current-prefix-arg)))
(unless definition (error "No command"))
(let ((func (indirect-function definition))
(defs nil)
(standard-output (if insert (current-buffer) t)))