Skip to content

GitLab

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

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

(inactivate-input-method): Likewise.
parent 6bdd75a5
Show whitespace changes
Inline Side-by-side
Showing with 5 additions and 2 deletions
lisp/international/mule-cmds.el
View file @ 28885c0e
...@@ -761,7 +761,9 @@ If INPUT-METHOD is nil, deactivate any current input method." ...@@ -761,7 +761,9 @@ If INPUT-METHOD is nil, deactivate any current input method."
(error "Can't activate input method `%s'" input-method)))) (error "Can't activate input method `%s'" input-method))))
(setq current-input-method input-method) (setq current-input-method input-method)
(setq current-input-method-title (nth 3 slot)) (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 () (defun inactivate-input-method ()
"Turn off the current input method." "Turn off the current input method."
...@@ -777,7 +779,8 @@ If INPUT-METHOD is nil, deactivate any current input method." ...@@ -777,7 +779,8 @@ If INPUT-METHOD is nil, deactivate any current input method."
(unwind-protect (unwind-protect
(run-hooks 'input-method-inactivate-hook) (run-hooks 'input-method-inactivate-hook)
(setq current-input-method nil (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) (defun set-input-method (input-method)
"Select and activate input method INPUT-METHOD for the current buffer. "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