procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(ethio-toggle-punctuation): Likewise.
This commit is contained in:
Kenichi Handa 2001-03-05 11:49:21 +00:00
parent 341cd4f01d
commit 6c5c2daf74
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/language/ethio-util.el
View file

@ -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)))
;;