diff options
| author | Kenichi Handa <handa@m17n.org> | 2001-03-05 11:49:21 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2001-03-05 11:49:21 +0000 |
| commit | 6c5c2daf74ee7672871857bd9057218668c3c129 (patch) | |
| tree | a19c19fa84ed2be013f7df4a9d05bf7aad0c890e | |
| parent | 341cd4f01db7f40a32c29d4c64741128d11b54c3 (diff) | |
| download | emacs-6c5c2daf74ee7672871857bd9057218668c3c129.tar.gz | |
(ethio-toggle-space): Update current-input-method-title if necessary.
(ethio-toggle-punctuation): Likewise.
| -rw-r--r-- | lisp/language/ethio-util.el | 4 |
1 files changed, 4 insertions, 0 deletions
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))) ;; |