- (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)))