Function: ethio-gemination

ethio-gemination is an interactive and byte-compiled function defined in ethio-util.el.gz.

Signature

(ethio-gemination)

Documentation

Compose the character before point with the Ethiopic gemination mark.

If the character is already composed, decompose it and remove the gemination mark.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/language/ethio-util.el.gz
;; This function is not used any more.
(defun ethio-gemination nil
  "Compose the character before point with the Ethiopic gemination mark.
If the character is already composed, decompose it and remove the gemination
mark."
  (interactive "*")
  (let ((ch (preceding-char)))
    (cond
     ((and (= ch ?\x1A01CA) (find-composition (1- (point))))
      (decompose-region (- (point) 2) (point)))
     ((and (>= ch #x1200) (<= ch #x137f))
      (insert "\x1A01CA")
      (compose-region (- (point) 2) (point)))
     (t
      (error "")))))