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

[Lluís]

>> 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

Ok, so (unless my elisp is crappier than I thought) compatibility code for both
emacs and xemacs would go like this:

(case (fboundp 'called-interactively-p)
      ((t)

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

        )
      ((nil) (defun called-interactively-p (arg)
                    ...whathever xemacs needs to do...)))

Thanks,
        Lluis

--
 "And it's much the same thing with knowledge, for whenever you learn
 something new, the whole world becomes that much richer."
 -- The Princess of Pure Reason, as told by Norton Juster in The Phantom
 Tollbooth