# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1172667043 0
# Node ID 2806691576cd57be1466ba0eee945579fef2b087
# Parent  29b94099e41949ec41edcf5aad52ac0f0ad378c9
(where-is): Fail gracefully when not passed a command.

diff -r 29b94099e419 -r 2806691576cd lisp/help.el
--- a/lisp/help.el	Wed Feb 28 10:45:06 2007 +0000
+++ b/lisp/help.el	Wed Feb 28 12:50:43 2007 +0000
@@ -491,6 +491,7 @@
 		  "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)))