From 463d75acd952150ac6b78efb6d8e320d5f447b00 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 28 Feb 2007 12:50:43 +0000 Subject: [PATCH] (where-is): Fail gracefully when not passed a command. --- lisp/help.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/help.el b/lisp/help.el index 8aa9ba6c46b..d0783dd0351 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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))) -- 2.39.2