From 9b21ecc23fe4bff2eac5afab51a9561f0ce65bf6 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Wed, 3 May 2000 03:28:39 +0000
Subject: [PATCH] (lao-compose-region): New function.

---
 lisp/language/lao-util.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index b12e63ae13d..02a16158bd4 100644
--- 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)
 
-- 
2.39.5