Mercurial > emacs

changeset 97856:521da036775a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lao-composition-function): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Fri, 29 Aug 2008 10:57:29 +0000
parents 3ba27d3abec0
children 67484b4a5175
files lisp/language/lao-util.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/lao-util.el	Fri Aug 29 09:55:32 2008 +0000
+++ b/lisp/language/lao-util.el	Fri Aug 29 10:57:29 2008 +0000
@@ -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)