RE: How to exit function from inside its `interactive' call?

[Drew Adams]

> how can I use catch/throw (or whatever) to exit function foo from inside
> its 'interactive call? All combinations I tried so far only exit
> 'interactive and still execute the function body.

(defun bar ()
  (interactive (top-level))
  (message "aaaaaaaaa"))

(defun foo ()
  (interactive
   (throw 'top-level 'HELLO))
  (message "JJJJJJJJJJJJJJ"))