diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-02-28 12:50:43 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-02-28 12:50:43 +0000 |
| commit | 463d75acd952150ac6b78efb6d8e320d5f447b00 (patch) | |
| tree | c42058f7595e3045b339348a31d4a85e4ba8bcdf | |
| parent | 8193fc4ba8cb76038f5cc73f320546afb71eeb69 (diff) | |
| download | emacs-463d75acd952150ac6b78efb6d8e320d5f447b00.tar.gz | |
(where-is): Fail gracefully when not passed a command.
| -rw-r--r-- | lisp/help.el | 1 |
1 files changed, 1 insertions, 0 deletions
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))) |