Mercurial > emacs

changeset 36534:90893f16ebbd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ethio-toggle-space): Update current-input-method-title if necessary. (ethio-toggle-punctuation): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 05 Mar 2001 11:49:21 +0000
parents 4d2cb95317fd
children 6873951b694a
files lisp/language/ethio-util.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/ethio-util.el	Mon Mar 05 11:37:33 2001 +0000
+++ b/lisp/language/ethio-util.el	Mon Mar 05 11:49:21 2001 +0000
@@ -1915,6 +1915,8 @@
   (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 @@
       (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)))
 
 ;;