From: Kenichi Handa <handa@m17n.org>
Date: Mon, 5 Mar 2001 11:49:21 +0000 (+0000)
Subject: (ethio-toggle-space): Update current-input-method-title if necessary.
X-Git-Tag: emacs-pretest-21.0.99~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c5c2daf74ee7672871857bd9057218668c3c129;p=emacs.git

(ethio-toggle-space): Update current-input-method-title if necessary.
(ethio-toggle-punctuation): Likewise.
---

diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 86e07e0c9d8..ef5402cb182 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -1915,6 +1915,8 @@ Otherwise, [0-9A-F]."
   (interactive)
   (setq ethio-prefer-ascii-space
 	(not ethio-prefer-ascii-space))
+  (if (equal current-input-method "ethipic")
+      (setq current-input-method-title (quail-title)))
   (force-mode-line-update))
 
 (defun ethio-insert-space (arg)
@@ -1970,6 +1972,8 @@ With ARG, insert that many delimiters."
       (quail-defrule (car keys) (car puncs) "ethiopic")
       (setq keys (cdr keys)
 	    puncs (cdr puncs)))
+    (if (equal current-input-method "ethipic")
+	(setq current-input-method-title (quail-title)))
     (force-mode-line-update)))
 
 ;;