comparison lisp/language/ethio-util.el @ 36536:e83b0b55c92b

(ethio-toggle-space): Fix typo. (ethio-toggle-punctuation): Fix typo.

36535:6873951b694a

(defun ethio-toggle-space nil
  "Toggle ASCII space and Ethiopic separator for keyboard input."
  (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)
  "Insert ASCII spaces or Ethiopic word separators depending on context.

	    '(?$(3$i(B ?$(3%u(B ?. ?$(3$j(B ?, ?$(3$k(B ?\; ?$(3$h(B ?$(3$i(B ?: ?* ?$(3$o(B))))
    (while keys
      (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)))

;;
;; Gemination

36536:e83b0b55c92b

(defun ethio-toggle-space nil
  "Toggle ASCII space and Ethiopic separator for keyboard input."
  (interactive)
  (setq ethio-prefer-ascii-space
	(not ethio-prefer-ascii-space))
  (if (equal current-input-method "ethiopic")
      (setq current-input-method-title (quail-title)))
  (force-mode-line-update))

(defun ethio-insert-space (arg)
  "Insert ASCII spaces or Ethiopic word separators depending on context.

	    '(?$(3$i(B ?$(3%u(B ?. ?$(3$j(B ?, ?$(3$k(B ?\; ?$(3$h(B ?$(3$i(B ?: ?* ?$(3$o(B))))
    (while keys
      (quail-defrule (car keys) (car puncs) "ethiopic")
      (setq keys (cdr keys)
	    puncs (cdr puncs)))
    (if (equal current-input-method "ethiopic")
	(setq current-input-method-title (quail-title)))
    (force-mode-line-update)))

;;
;; Gemination