Function: hangul-djamo

hangul-djamo is a byte-compiled function defined in hangul.el.gz.

Signature

(hangul-djamo JAMO CHAR1 CHAR2)

Documentation

Return the double Jamo index calculated from the arguments.

JAMO is a type of Hangul Jamo; cho, jung, or jong. CHAR1 and CHAR2 are Hangul Jamo indices. Return nil if CHAR1 and CHAR2 can not be combined.

Source Code

;; Defined in /usr/src/emacs/lisp/leim/quail/hangul.el.gz
(defun hangul-djamo (jamo char1 char2)
  "Return the double Jamo index calculated from the arguments.
JAMO is a type of Hangul Jamo; `cho', `jung', or `jong'.
CHAR1 and CHAR2 are Hangul Jamo indices.
Return nil if CHAR1 and CHAR2 can not be combined."
  (let* ((jamo (cdr (assoc jamo hangul-djamo-table)))
         (char1 (cdr (assoc char1 jamo))))
    (if char1
        (let ((i (length char1)))
          (or (catch 'found
                (while (> i 0)
                  (if (= char2 (aref char1 (1- i)))
                      (throw 'found i))
                  (setf i (1- i))))
              0))
      0)))