(lao-compose-region): New function.

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index b12e63ae13d01155a4fa226ff88fc2245fdb1bb1..02a16158bd4e15a035aff9d32649ac059e09e0f1 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -505,6 +505,16 @@ The return value is number of composed characters."
          (compose-region from to))
        (- to from))))
 
+;;;###autoload
+(defun lao-compose-region (from to)
+  (interactive "r")
+  (save-restriction
+    (narrow-to-region from to)
+    (goto-char (point-min))
+    (with-category-table lao-category-table
+      (while (re-search-forward lao-composition-pattern nil t)
+       (compose-region (match-beginning 0) (point))))))
+
 ;;
 (provide 'lao-util)