egg-980315.

[elisp/egg.git] / egg.el

diff --git a/egg.el b/egg.el
index 9dd3b40..a88bcf2 100644 (file)
--- a/egg.el
+++ b/egg.el
@@ -58,6 +58,7 @@
     (if (null (string= (car arg) egg-last-method-name))
        (progn
          (funcall (nth 1 arg))
+         (egg-set-conversion-backend nil (list its-current-language) t)
          (setq egg-default-language its-current-language)))
     (setq egg-last-method-name (car arg))
     (use-local-map (if egg-mode-preference
@@ -65,15 +66,7 @@
                     (egg-modeless-map)))
     (setq inactivate-current-input-method-function 'egg-mode)
     (setq describe-current-input-method-function 'egg-help)
-    (add-hook 'input-method-activate-hook 'egg-set-mode-line-title)))
-
-(defun egg-set-mode-line-title ()
-  (setq current-input-method-title (its-get-indicator its-current-map))
-  (force-mode-line-update))
-
-(defun egg-check-language (lang)
-  (if (null (member lang egg-support-languages))
-      (error "%S is not supported" lang)))
+    (add-hook 'input-method-activate-hook 'its-set-mode-line-title)))
 
 (defun egg-modefull-map ()
   "Generate modefull keymap for EGG mode."