# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121535589 0
# Node ID 66f4633e319a5db107e028a5239c26e6447bf6cb
# Parent  c16c027014c6f29ac6a3149f2bc4445e9056efbc
(viper-activate-input-method): Avoid warning.

diff -r c16c027014c6 -r 66f4633e319a lisp/emulation/viper-init.el
--- a/lisp/emulation/viper-init.el	Sat Jul 16 17:35:09 2005 +0000
+++ b/lisp/emulation/viper-init.el	Sat Jul 16 17:39:49 2005 +0000
@@ -362,8 +362,8 @@
 (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)