From: Kenichi Handa <handa@m17n.org>
Date: Wed, 3 May 2000 03:28:39 +0000 (+0000)
Subject: (lao-compose-region): New function.
X-Git-Tag: emacs-pretest-21.0.90~4067
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b21ecc23fe4bff2eac5afab51a9561f0ce65bf6;p=emacs.git

(lao-compose-region): New function.
---

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)