From: Kenichi Handa <handa@m17n.org>
Date: Fri, 29 Aug 2008 10:57:29 +0000 (+0000)
Subject: (lao-composition-function): Fix previous change.
X-Git-Tag: emacs-pretest-23.0.90~3147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70a6526c975efdf821809aee872ea1944c85166f;p=emacs.git

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

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index adbe30f0622..1a520d55ab8 100644
--- 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)