From a5787fe364cf4f2ef06edac9778a518bf2488b5e Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 25 Dec 2007 10:53:18 +0000
Subject: [PATCH] (ethio-composition-function): Fix arguments.

---
 lisp/language/ethio-util.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 38e32c8af06..a8b99884546 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -1019,7 +1019,7 @@ With ARG, insert that many delimiters."
 ;;
 
 ;;;###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
-- 
2.39.5