Mercurial > emacs
comparison lisp/emulation/viper-init.el @ 64383:66f4633e319a
(viper-activate-input-method): Avoid warning.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Jul 2005 17:39:49 +0000 |
| parents | a4c59075cac8 |
| children | 34bd8e434dd7 187d6a1f84f7 |
comparison
equal
deleted
inserted
replaced
| 64382:c16c027014c6 | 64383:66f4633e319a |
|---|---|
| 360 (force-mode-line-update)) | 360 (force-mode-line-update)) |
| 361 )) | 361 )) |
| 362 (defun viper-activate-input-method () | 362 (defun viper-activate-input-method () |
| 363 (cond ((and viper-emacs-p (fboundp 'activate-input-method)) | 363 (cond ((and viper-emacs-p (fboundp 'activate-input-method)) |
| 364 (activate-input-method default-input-method)) | 364 (activate-input-method default-input-method)) |
| 365 ((and viper-xemacs-p (fboundp 'quail-mode)) | 365 ((featurep 'xemacs) |
| 366 (quail-mode 1)))) | 366 (if (fboundp 'quail-mode) (quail-mode 1))))) |
| 367 | 367 |
| 368 ;; Set quail-mode to ARG | 368 ;; Set quail-mode to ARG |
| 369 (defun viper-set-input-method (arg) | 369 (defun viper-set-input-method (arg) |
| 370 (setq viper-mule-hook-flag t) ; just a precaution | 370 (setq viper-mule-hook-flag t) ; just a precaution |
| 371 (let (viper-mule-hook-flag) ; temporarily inactivate viper mule hooks | 371 (let (viper-mule-hook-flag) ; temporarily inactivate viper mule hooks |