# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1198580722 0
# Node ID d1ec766050a627a555f48a895895024204c66234
# Parent  663fd3a26530506e5af73b938a0e243c9a4fc971
(thai-composition-function): Fix arguments.

diff -r 663fd3a26530 -r d1ec766050a6 lisp/language/thai-util.el
--- a/lisp/language/thai-util.el	Tue Dec 25 11:03:30 2007 +0000
+++ b/lisp/language/thai-util.el	Tue Dec 25 11:05:22 2007 +0000
@@ -229,7 +229,7 @@
   (thai-compose-region (point-min) (point-max)))
 
 ;;;###autoload
-(defun thai-composition-function (pos &optional string)
+(defun thai-composition-function (pos to font-object string)
   (setq pos (1- pos))
   (with-category-table thai-category-table
     (if string