Function: thai-compose-region

thai-compose-region is an autoloaded, interactive and byte-compiled function defined in thai-util.el.gz.

Signature

(thai-compose-region BEG END)

Documentation

Compose Thai characters in the region.

When called from a program, expects two arguments, positions (integers or markers) specifying the region.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/language/thai-util.el.gz
;;;###autoload
(defun thai-compose-region (beg end)
  "Compose Thai characters in the region.
When called from a program, expects two arguments,
positions (integers or markers) specifying the region."
  (interactive "r")
  (let ((pos (point)))
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (with-category-table thai-category-table
	(while (re-search-forward thai-composition-pattern nil t)
	  (setq beg (match-beginning 0) end (match-end 0))
	  (if (and (> pos beg) (< pos end))
	      (setq pos end))
	  (thai-compose-syllable beg end
				 (char-category-set (char-after beg))))))
    (goto-char pos)))