diff options
| author | Kenichi Handa <handa@m17n.org> | 1999-05-13 06:50:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1999-05-13 06:50:04 +0000 |
| commit | 61f126557dbbe9e1091330f1886443ddb841471c (patch) | |
| tree | 2d832051595b8ac17430d1b2793a7e64ef569b17 /lisp | |
| parent | 3b8f5ef880066e53be326e5f1259a1039239328c (diff) | |
| download | emacs-61f126557dbbe9e1091330f1886443ddb841471c.tar.gz | |
fix previous change
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ps-mule.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 2287aa058c5..3975fe4a339 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -584,7 +584,7 @@ STRING should contain only ASCII characters." /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 @@ the sequence." 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 |