Re: called-interactively-p, cedet, and Emacs 23.1 and earlier

[Stefan Monnier]

> We have recently stumbled over called-interactively-p, which is now used
> with an argument throughout the Emacs versions of the CEDET code.
> My externally maintained code I would like to have work in Emacs 22 and 23.1
> which does not support the argument, and XEmacs which is missing the feature
> completely, and is thus easy to make work in this case. Could some kind soul
> help me define some advice, or other trick I can install in older Emacs to
> allow this form to work?

How 'bout

(condition-case nil
    (called-interactively-p nil)
  (defmacro called-interactively-p (arg)
    (case arg
      (interactive `(interactive-p))
      ((any nil) `(called-interactively-p)))))


-- Stefan