diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-09-05 07:36:53 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-09-05 07:36:53 +0000 |
| commit | e271d38e798f286de8d7cb6a566bcad008052f19 (patch) | |
| tree | 2a38419eb3de33803b85d1cf7d8c87c68bbc8b0d /lisp/composite.el | |
| parent | 7042033274974c8494bdd8104e54127fc3a3357b (diff) | |
| download | emacs-e271d38e798f286de8d7cb6a566bcad008052f19.tar.gz emacs-e271d38e798f286de8d7cb6a566bcad008052f19.tar.bz2 emacs-e271d38e798f286de8d7cb6a566bcad008052f19.zip | |
(compose-gstring-for-graphic): Fix handling "above" marks.
Diffstat (limited to 'lisp/composite.el')
| -rw-r--r-- | lisp/composite.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/composite.el b/lisp/composite.el index c47ee190319..a86b3147023 100644 --- 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))) |