(ethio-toggle-punctuation): Likewise.
(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)
(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)))
;;