From 6c5c2daf74ee7672871857bd9057218668c3c129 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 5 Mar 2001 11:49:21 +0000 Subject: [PATCH] (ethio-toggle-space): Update current-input-method-title if necessary. (ethio-toggle-punctuation): Likewise. --- lisp/language/ethio-util.el | 4 ++++ 1 file changed, 4 insertions(+) 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))) ;; -- 2.39.5