Commit 463d75ac authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

parent 8193fc4b
......@@ -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)))
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