Viper hoses describe-key{,-briefly} in xemacs

[Michael Kifer]

> Your change of revision 1.43 of 2007/06/12 19:28:27 +0 of xemacs
> packages `viper.el' (not even noted in `ChangeLog' there) changes
> `interactive' specifications in `describe-key{,-briefly}' advices so
> that `call-interactively' passes 3 args to them.  In xemacs, both 21.4
> and 21.5, `describe-key' takes 1 arg, `describe-key-briefly' takes 2
> args, with 1 optional.  So after loading the changed file when trying
> to call these functions, `wrong-number-of-arguments' errors are
> signalled in backtrace like this:
> 
>   #<compiled-function (key) "...(9)" [key ad-return-value nil ad-Orig-describe-key] 3 "$ad-doc: describe-key$" (let (key) (setq key ...) (list key ... ...))>
> ([#<keypress-event control-S>] 1 nil)
>   call-interactively(describe-key)
> 
> Please fix.
> 


This change was done by somebody in the emacs trunk.
I did not test it on xemacs when I merged this with my changes.
will fix