Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/canna-leim.el	Mon Aug 13 10:09:36 2007 +0200
+++ b/lisp/mule/canna-leim.el	Mon Aug 13 10:10:02 2007 +0200
@@ -37,7 +37,9 @@
       (require 'canna)
     (error "Canna is not built into this XEmacs"))
   (setq inactivate-current-input-method-function 'canna-inactivate)
-  (canna)
+  (unless (featurep 'leim-canna-initialized)
+    (canna)
+    (provide 'leim-canna-initialized))
   (canna-toggle-japanese-mode))
 
 (defun canna-inactivate ()