bug#14702: 24.3.50; Byte-compiling called-interactively-p inside catch

[Stefan Monnier <monnier@iro.umontreal.ca>]

> At the moment I don't see a way to do either of these: I can't use an
> extra argument, because the command where I use called-interactively-p
> already uses a prefix argument for another purpose; and I don't see an

I don't see the relationship:

(defun foo (prefix &optional interactive)
  "Blabla."
  (interactive "P\np")
  ... (catch ... (if interactive ...) ...) ...)

> alternative to something like `catch', because I need to stop execution

I didn't say not to use `catch', I said not to use
called-interactively-p inside `catch'.  E.g.

  (let ((interactive (called-interactively-p 'any)))
   ...
   (catch ... (if interactive ...) ...) ...)


        Stefan