*** empty log message ***

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

diff --git a/leim-list.el b/leim-list.el
index 535c4b1..1983905 100644 (file)
--- a/leim-list.el
+++ b/leim-list.el
@@ -1,9 +1,10 @@
-;;; leim-list-egg.el --- Egg setup for leim API
+;;; leim-list.el --- Egg setup for leim API
 
 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc
 
 ;; Author: NIIBE Yutaka <gniibe@chroot.org>
 ;;         KATAYAMA Yoshio <kate@pfu.co.jp>
+;;         TOMURA Satoru <tomura@etl.go.jp>
 
 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
 
@@ -30,12 +31,11 @@
 
 ;;; Code:
 
-;;; leim-list-egg.el --- Egg setup for leim API
-;;; CAUTION: Don't delete the above line.
-
 (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
@@ -48,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)
@@ -89,22 +94,39 @@
   (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py")
   (set-language-info "Korean"      'input-method "korean-egg-wnn")
 
-  (require 'egg)
-  (require 'its/hira)
+(defgroup leim nil 
+  "LEIM stands for Libraries of Emacs Input Methods."
+  :group 'mule)
+
+(defgroup egg nil "" 
+  :group 'leim :load "egg")
+
+(defgroup wnn nil ""
+  :group 'egg :load "egg/wnn")
+
+(defgroup sj3 nil ""
+  :group 'egg :load "egg/sj3")
+
+(defgroup canna nil ""
+  :group 'egg :load "egg/canna")
+
+(defgroup its nil "" 
+  :group 'egg :load "its")
+
+(defgroup hira nil ""
+  :group 'its :load "its/hira")
 
 ;;;;
 
   (require 'egg-util)
 
   (defun load-leim-list-except-this ()
-    (load-libraries "leim-list" (cdr-safe
-                                (member (substring 
-                                         (file-name-directory
-                                          load-file-name)
-                                         0 -1)
-                                        load-path))))
+    (load-libraries "leim-list" 
+                   (cdr-safe
+                    (member (directory-file-name (file-name-directory load-file-name))
+                            load-path))))
 
   (message "Finished loading %s \n   and load others..." load-file-name)
   (load-leim-list-except-this)
 
-  )
\ No newline at end of file
+  )