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

b674ceaf · Richard M. Stallman · 5834812a · b674ceaf
Commit b674ceaf authored Jul 16, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/emulation/viper-init.el lisp/emulation/viper-init.el +2 -2

No files found.
--- 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)