Mercurial > hg > xemacs-beta

comparison lisp/mule/canna-leim.el @ 221:6c0ae1f9357f r20-4b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b9
author cvs
date Mon, 13 Aug 2007 10:10:02 +0200
parents e45d5e7c476e
children
comparison
equal deleted inserted replaced
220:04f4bca7b601 221:6c0ae1f9357f
35 (defun canna-activate (&optional name) 35 (defun canna-activate (&optional name)
36 (if (featurep 'CANNA) 36 (if (featurep 'CANNA)
37 (require 'canna) 37 (require 'canna)
38 (error "Canna is not built into this XEmacs")) 38 (error "Canna is not built into this XEmacs"))
39 (setq inactivate-current-input-method-function 'canna-inactivate) 39 (setq inactivate-current-input-method-function 'canna-inactivate)
40 (canna) 40 (unless (featurep 'leim-canna-initialized)
41 (canna)
42 (provide 'leim-canna-initialized))
41 (canna-toggle-japanese-mode)) 43 (canna-toggle-japanese-mode))
42 44
43 (defun canna-inactivate () 45 (defun canna-inactivate ()
44 (cond (canna:*japanese-mode* (canna-toggle-japanese-mode))) ) 46 (cond (canna:*japanese-mode* (canna-toggle-japanese-mode))) )
45 47