[Emacs-diffs] Changes to emacs/lisp/language/lao-util.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/08/29 10:57:29

Index: lao-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/lao-util.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- lao-util.el 29 Aug 2008 07:59:39 -0000      1.32
+++ lao-util.el 29 Aug 2008 10:57:29 -0000      1.33
@@ -491,17 +491,17 @@
       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)