From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Jul 2005 17:39:49 +0000 (+0000)
Subject: (viper-activate-input-method): Avoid warning.
X-Git-Tag: emacs-pretest-22.0.90~8094
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b674ceaf816bcea7e9676e97dc4faf0714329aea;p=emacs.git

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

diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 8d9aed94770..f898c15c158 100644
--- 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)