From b674ceaf816bcea7e9676e97dc4faf0714329aea Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Jul 2005 17:39:49 +0000 Subject: [PATCH] (viper-activate-input-method): Avoid warning. --- lisp/emulation/viper-init.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2