(viper-activate-input-method): Avoid warning.

diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 8d9aed9477094ec30f4e751a705a708818046d3f..f898c15c15861b17818142b21c2ddee88840291c 100644 (file)
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -362,8 +362,8 @@ Use `M-x viper-set-expert-level' to change this.")
 (defun viper-activate-input-method ()
   (cond ((and viper-emacs-p (fboundp 'activate-input-method))
         (activate-input-method default-input-method))
-       ((and viper-xemacs-p (fboundp 'quail-mode))
-        (quail-mode 1))))
+       ((featurep 'xemacs)
+        (if (fboundp 'quail-mode) (quail-mode 1)))))
 
 ;; Set quail-mode to ARG
 (defun viper-set-input-method (arg)