(lao-composition-function): Fix previous change.

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index adbe30f0622347d5d557e99a6476b77b65a2f046..1a520d55ab8bcc7d770d9fa8e46298225b6f074d 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -491,17 +491,17 @@ syllable.  In that case, FROM and TO are indexes to STR."
       lao-str)))
 
 ;;;###autoload
-(defun lao-composition-function (from to font-object string)
-  (if (= (lgstirng-char-len gstring) 1)
+(defun lao-composition-function (gstring)
+  (if (= (lgstring-char-len gstring) 1)
       (compose-gstring-for-graphic gstring)
-    (or (font-shape-text from to font-object string))
+    (or (font-shape-gstring gstring)
        (let ((glyph-len (lgstring-glyph-len gstring))
              (i 0)
              glyph)
          (while (and (< i glyph-len)
                      (setq glyph (lgstring-glyph gstring i)))
            (setq i (1+ i)))
-         (compose-glyph-string-relative gstring 0 i 0.1))))
+         (compose-glyph-string-relative gstring 0 i 0.1)))))
 
 ;;;###autoload
 (defun lao-compose-region (from to)