* lisp/emulation/viper.el (viper-set-hooks): Replace obsolete func.

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index c8eca30e88b0906d71845f0ddcdea8f322334fa1..8604020b987ad9ba7b5e5481458f00f1568a7692 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -937,8 +937,13 @@ Two differences:
     (if (and (eq viper-current-state 'vi-state)
             ;; Do not use called-interactively-p here. XEmacs does not have it
             ;; and interactive-p is just fine.
-            ;; (called-interactively-p 'interactive))
-            (interactive-p))
+             (if (featurep 'xemacs)
+                 (interactive-p)
+               ;; Respect the spirit of the above comment, though it
+               ;; seems pointless, since XE doesn't have advice-add or
+               ;; lexical binding or any other of the newer features
+               ;; this file uses.
+               (called-interactively-p 'interactive)))
        (beep 1)
       (apply orig-fun args))))