Mercurial > emacs
changeset 24722:4321a26f6594
fix previous change
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 13 May 1999 06:50:04 +0000 |
parents | 25eb63742593 |
children | 8576297b8add |
files | lisp/ps-mule.el |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-mule.el Thu May 13 06:40:05 1999 +0000 +++ b/lisp/ps-mule.el Thu May 13 06:50:04 1999 +0000 @@ -584,7 +584,7 @@ /BaselineOffset 0 def } ifelse currentdict /RelativeCompose known not { - /RelativeCompose [ 0 0 ] def + /RelativeCompose [ 0 0.1 ] def } { RelativeCompose false ne { [ BaselineOffset RelativeCompose BaselineOffset add @@ -819,7 +819,7 @@ dup GetPathBox LLX 0 lt { RIGHT currentpoint exch pop moveto } if CmpcharRelativeCompose type /arraytype eq { - LLY CmpcharRelativeCompose 1 get gt { % compose on top + LLY CmpcharRelativeCompose 1 get ge { % compose on top currentpoint pop HIGH LLY sub CmpcharRelativeSkip add moveto /HIGH HIGH URY LLY sub add CmpcharRelativeSkip add def } { URY CmpcharRelativeCompose 0 get le { % compose under bottom