# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1198579998 0
# Node ID ac0200dcbfddecfd6aaf71ed000cf2a8b712f937
# Parent  0dfd79b5e5c52e6e7987f065b9546adfafe9ae86
(ethio-composition-function): Fix arguments.

diff -r 0dfd79b5e5c5 -r ac0200dcbfdd lisp/language/ethio-util.el
--- a/lisp/language/ethio-util.el	Tue Dec 25 10:50:26 2007 +0000
+++ b/lisp/language/ethio-util.el	Tue Dec 25 10:53:18 2007 +0000
@@ -1019,7 +1019,7 @@
 ;;
 
 ;;;###autoload
-(defun ethio-composition-function (pos &optional string)
+(defun ethio-composition-function (pos to font-object string)
   (setq pos (1- pos))
   (let ((pattern "\\ce\\(፟\\|����\\)"))
     (if string