Mercurial > emacs
changeset 97994:b74042c3e459
(compose-gstring-for-graphic): Fix handling "above" marks.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 05 Sep 2008 07:36:53 +0000 |
| parents | 6a97b039ecff |
| children | eaf8630bda7d |
| files | lisp/composite.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)))