(compose-gstring-for-graphic): Fix handling "above" marks.

diff --git a/lisp/composite.el b/lisp/composite.el
index c47ee190319c3268d18a280d9e3b2047c457ec62..a86b314702392bf93b3c1edda6e0f2140b849486 100644 (file)
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -599,13 +599,13 @@ All non-spacing characters has this function in
                         (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 @@ All non-spacing characters has this function in
                         (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)))