Function: thai-compose-syllable

thai-compose-syllable is a byte-compiled function defined in thai-util.el.gz.

Signature

(thai-compose-syllable BEG END &optional CATEGORY-SET STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/language/thai-util.el.gz
(defun thai-compose-syllable (beg end &optional category-set string)
  (or category-set
      (setq category-set
	    (char-category-set (if string (aref string beg) (char-after beg)))))
  (if (aref category-set ?c)
      ;; Starting with a consonant.  We do relative composition.
      (if string
	  (compose-string string beg end)
	(compose-region beg end))
    ;; Vowel tone sequence.
    (if string
	(compose-string string beg end (list (aref string beg) '(Bc . Bc)
					     (aref string (1+ beg))))
      (compose-region beg end (list (char-after beg) '(Bc . Bc)
				    (char-after (1+ beg))))))
  (- end beg))