# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1220600213 0
# Node ID b74042c3e459b1608f30c2bc123eeb0e9fdf299f
# Parent  6a97b039ecffb7bc02629b8db95c39b709856ab6
(compose-gstring-for-graphic): Fix handling "above" marks.

diff -r 6a97b039ecff -r b74042c3e459 lisp/composite.el
--- a/lisp/composite.el	Fri Sep 05 07:12:23 2008 +0000
+++ b/lisp/composite.el	Fri Sep 05 07:36:53 2008 +0000
@@ -599,13 +599,13 @@
 			 (setq xoff (- rbearing lb)))
 			((= class 212)
 			 (setq xoff (- lbearing ce)
-			       yoff (if (>= de 0) 0 (- ascent de))))
+			       yoff (if (>= de 0) 0 (- ascent (- de)))))
 			((= class 214)
 			 (setq xoff (- center ce)
-			       yoff (if (>= de 0) 0 (- ascent de))))
+			       yoff (if (>= de 0) 0 (- ascent (- de)))))
 			((= class 216)
 			 (setq xoff (- rbearing ce)
-			       yoff (if (>= de 0) 0 (- ascent de))))
+			       yoff (if (>= de 0) 0 (- ascent (- de)))))
 			((= class 218)
 			 (setq xoff (- lbearing ce)
 			       yoff (if (> as 0) 0 (+ descent as gap))))
@@ -621,13 +621,13 @@
 			 (setq xoff (- rbearing lb)))
 			((= class 228)
 			 (setq xoff (- lbearing ce)
-			       yoff (if (>= de 0) 0 (- ascent de gap))))
+			       yoff (if (>= de 0) 0 (- ascent (- de) gap))))
 			((= class 230)
 			 (setq xoff (- center ce)
-			       yoff (if (>= de 0) 0 (- ascent de gap))))
+			       yoff (if (>= de 0) 0 (- ascent (- de) gap))))
 			((= class 232)
 			 (setq xoff (- rbearing ce)
-			       yoff (if (>= de 0) 0 (- ascent de gap))))))
+			       yoff (if (>= de 0) 0 (- ascent (- de) gap))))))
 		      (lglyph-set-adjustment glyph (- xoff width) yoff))))))
 	  (let ((i 0))
 	    (while (and (< i nglyphs) (setq glyph (lgstring-glyph gstring i)))