Function: thai-composition-function

thai-composition-function is an autoloaded and byte-compiled function defined in thai-util.el.gz.

Signature

(thai-composition-function GSTRING DIRECTION)

Source Code

;; Defined in /usr/src/emacs/lisp/language/thai-util.el.gz
;;;###autoload
(defun thai-composition-function (gstring direction)
  (if (= (lgstring-char-len gstring) 1)
      (compose-gstring-for-graphic gstring direction)
    (or (font-shape-gstring gstring direction)
	(let ((glyph-len (lgstring-glyph-len gstring))
	      (last-char (lgstring-char gstring
					(1- (lgstring-char-len gstring))))
	      (i 0)) ;; glyph
	  (while (and (< i glyph-len)
		      ;; (setq glyph
		      (lgstring-glyph gstring i)) ;; )
	    (setq i (1+ i)))
	  (if (= last-char ?ำ)
	      (setq i (1- i)))
	  (compose-glyph-string-relative gstring 0 i 0.1)))))