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

[Ilya N. Golubev]

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.