Function: ethio-get-consonant

ethio-get-consonant is a byte-compiled function defined in ethio-util.el.gz.

Signature

(ethio-get-consonant CH)

Documentation

Return the consonant part of CH's SERA spelling in ethiopic-sera.

SERA (System for Ethiopic Representation in ASCII) is the Latin representation of Ethiopic script.

Source Code

;; Defined in /usr/src/emacs/lisp/language/ethio-util.el.gz
(defun ethio-get-consonant (ch)
  "Return the consonant part of CH's SERA spelling in ethiopic-sera.
SERA (System for Ethiopic Representation in ASCII) is the Latin
representation of Ethiopic script."
  (let ((sera (get-char-code-property ch 'ethiopic-sera)))
    (cond
     ((null sera) nil)
     ((= ch ?ኧ) "'")			; Only this has two vowel letters.
     (t (with-temp-buffer
	  (insert sera)
	  (if (memq (preceding-char) '(?e ?u ?i ?a ?o ?E ?I ?A ?'))
	      (delete-char -1))
	  (buffer-substring (point-min) (point-max)))))))