Mercurial > emacs
changeset 22854:dd7dcda2d47b
(activate-input-method): Update mode line.
(inactivate-input-method): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 Jul 1998 06:50:59 +0000 |
| parents | 62d2fb895f5f |
| children | 0af947ec28eb |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Jul 30 01:35:40 1998 +0000 +++ b/lisp/international/mule-cmds.el Thu Jul 30 06:50:59 1998 +0000 @@ -761,7 +761,9 @@ (error "Can't activate input method `%s'" input-method)))) (setq current-input-method input-method) (setq current-input-method-title (nth 3 slot)) - (run-hooks 'input-method-activate-hook)))) + (unwind-protect + (run-hooks 'input-method-activate-hook) + (force-mode-line-update))))) (defun inactivate-input-method () "Turn off the current input method." @@ -777,7 +779,8 @@ (unwind-protect (run-hooks 'input-method-inactivate-hook) (setq current-input-method nil - current-input-method-title nil))))) + current-input-method-title nil) + (force-mode-line-update))))) (defun set-input-method (input-method) "Select and activate input method INPUT-METHOD for the current buffer.