From 268dff94121d96d8a096f4910c5ed7aa1e0722be Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 25 Dec 2007 10:50:26 +0000
Subject: [PATCH] (tai-viet-composition-function): Fix arguments.

---
 lisp/language/tv-util.el | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el
index c7e8f8da97e..312ee1f41a3 100644
--- a/lisp/language/tv-util.el
+++ b/lisp/language/tv-util.el
@@ -131,17 +131,13 @@
 
 
 ;;;###autoload
-(defun tai-viet-composition-function (pos &optional string)
-  (let (to)
-    (if string
-	(progn
-	  (if (string-match tai-viet-re string pos)
-	      (tai-viet-compose-string pos (match-end 0) string)
-	    (1+ pos)))
-      (goto-char pos)
-      (if (looking-at tai-viet-re)
-	  (tai-viet-compose-region pos (match-end 0))
-	(1+ pos)))))
+(defun tai-viet-composition-function (from to font-object string)
+  (if string
+      (if (string-match tai-viet-re string from)
+	  (tai-viet-compose-string from (match-end 0) string))
+    (goto-char from)
+    (if (looking-at tai-viet-re)
+	(tai-viet-compose-region from (match-end 0)))))
 
 ;;
 (provide 'tai-viet-util)
-- 
2.39.5