From: Kenichi Handa <handa@m17n.org>
Date: Thu, 30 Jul 1998 06:50:59 +0000 (+0000)
Subject: (activate-input-method): Update mode line.
X-Git-Tag: emacs-20.3~225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28885c0e1eabadd302bb2b74a4497a6a967cec08;p=emacs.git

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

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9340dec8074..8b9a9a13ac5 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -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.