(ethio-composition-function): Fix arguments.

This commit is contained in:
Kenichi Handa 2007-12-25 10:53:18 +00:00
parent 268dff9412
commit a5787fe364

View file

@ -1019,7 +1019,7 @@ With ARG, insert that many delimiters."
;; ;;
;;;###autoload ;;;###autoload
(defun ethio-composition-function (pos &optional string) (defun ethio-composition-function (pos to font-object string)
(setq pos (1- pos)) (setq pos (1- pos))
(let ((pattern "\\ce\\(፟\\|<7C><><EFBFBD><EFBFBD>\\)")) (let ((pattern "\\ce\\(፟\\|<7C><><EFBFBD><EFBFBD>\\)"))
(if string (if string