*** empty log message ***

[elisp/tamago.git] / leim-list.el

diff --git a/leim-list.el b/leim-list.el
index 9640797..1983905 100644 (file)
--- a/leim-list.el
+++ b/leim-list.el
@@ -32,8 +32,10 @@
 ;;; Code:
 
 (when site-run-file
-  (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamagotchy." t)
-  (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamagotchy." t)
+  (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamago 4." t)
+  (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago 4." t)
+  (autoload 'egg-activate-canna "egg/canna"
+    "Activate CANNA backend of Tamago 4." t)
 
   (register-input-method
    "japanese-egg-wnn" "Japanese" 'egg-activate-wnn
@@ -46,6 +48,11 @@
    'its-select-hiragana)
 
   (register-input-method
+   "japanese-egg-canna" "Japanese" 'egg-activate-canna
+   "\e$B$"\e(B.."  "Romaji -> Hiragana -> Kanji&Kana"
+   'its-select-hiragana)
+
+  (register-input-method
    "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn
    "\e$AF4\e(BG"  "Pinyin -> Simplified Hanzi"
    'its-select-pinyin-cn)
@@ -100,6 +107,9 @@
 (defgroup sj3 nil ""
   :group 'egg :load "egg/sj3")
 
+(defgroup canna nil ""
+  :group 'egg :load "egg/canna")
+
 (defgroup its nil "" 
   :group 'egg :load "its")
 
@@ -119,4 +129,4 @@
   (message "Finished loading %s \n   and load others..." load-file-name)
   (load-leim-list-except-this)
 
-  )
\ No newline at end of file
+  )