(require 'egg-edep)
-(defconst canna-support-languages '(Japanese))
-
(eval-when-compile
(defmacro CANNA-const (c)
(cond ((eq c 'FileNotExist) xxxxxxxxxxxxxx)
(defun canna-start-conversion (yomi lang)
"Convert YOMI string to kanji, and enter conversion mode.
Return the list of bunsetsu."
- (let ((env (canna-get-environment)))
- (cannarpc-begin-conversion env yomi)))
+ (if (eq lang 'Japanese)
+ (let ((env (canna-get-environment)))
+ (cannarpc-begin-conversion env yomi))
+ (signal 'lang-not-supported)))
(defun canna-end-conversion (bunsetsu-list abort)
(let* ((env (cannabunsetsu-get-env (car bunsetsu-list)))
(list bunsetsu1))))
;;;;;;;;;;;;;; MADAMADA
-(defun canna-fini (lang)
+(defun canna-fini ()
)
;;; setup
-
(require 'egg)
-(load "egg/cannarpc")
;;;###autoload
(defun egg-activate-canna (&rest arg)
"Activate CANNA backend of Tamagotchy."
- (egg-set-support-languages canna-support-languages)
- (egg-set-conversion-backend canna-conversion-backend
- canna-support-languages
- nil)
+ (setq egg-conversion-backend canna-conversion-backend)
+ (if (not (fboundp 'cannarpc-open))
+ (load-library "egg/canna"))
(apply 'egg-mode arg))
;;; egg/canna.el ends here.