Commit 28885c0e authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(activate-input-method): Update mode line.

(inactivate-input-method): Likewise.
parent 6bdd75a5
......@@ -761,7 +761,9 @@ If INPUT-METHOD is nil, deactivate any current input method."
(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 @@ If INPUT-METHOD is nil, deactivate any current input method."
(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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment