mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kenichi Handa 2008-09-05 07:36:53 +00:00
parent 7042033274
commit e271d38e79
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/composite.el
View File

@ -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)))