X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=egg.el;h=a88bcf22926d16611964f1968daff08eb6df7197;hb=d0114d80c7a6a1a573bb3adc0fd4a3b25fa1e27e;hp=9dd3b4081a52b60cb46904ebba9896476ea3ee97;hpb=b03c025b15c384d1ab9b0ec2b9299c0e70a16f74;p=elisp%2Fegg.git diff --git a/egg.el b/egg.el index 9dd3b40..a88bcf2 100644 --- 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."