(thai-compose-string): New function.

1 files changed, 19 insertions, 0 deletions

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index cce6f12696b..2c891d0d992 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -164,6 +164,25 @@ positions (integers or markers) specifying the region."
         (set-category-table current-ctbl)))))
 
 ;;;###autoload
+(defun thai-compose-string (string)
+  "Compose Thai characters in STRING and return the resulting string."
+  (let ((current-ctbl (category-table)))
+    (set-category-table thai-category-table)
+    (unwind-protect
+        (let ((idx 0)
+              (new ""))
+          (while (string-match "\\c+\\c-+" string idx)
+            (if (< idx (match-beginning 0))
+                (setq new
+                      (concat new (substring string idx (match-beginning 0)))))
+            (setq new (concat new (compose-string (match-string 0 string))))
+            (setq idx (match-end 0)))
+          (if (< idx (length string))
+              (setq new (concat new (substring string idx))))
+          new)
+      (set-category-table current-ctbl))))
+      
+;;;###autoload
 (defun thai-compose-buffer ()
   "Compose Thai characters in the current buffer."
   (interactive)