# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 901781459 0
# Node ID dd7dcda2d47bc7a6ab20535b1a9ce147a3df2f9b
# Parent  62d2fb895f5fc486fa34056f753ed5ce757fe98b
(activate-input-method): Update mode line.
(inactivate-input-method): Likewise.

diff -r 62d2fb895f5f -r dd7dcda2d47b lisp/international/mule-cmds.el
--- 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.