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 | b77e0a82cad4cf0edba7900fc3b590e4448d845a (patch) | |
| tree | c125137912526050027e5cf9e7390a70920b2a0d /lisp/ps-mule.el | |
| parent | bc4c1aae950210a2a8fec1d088795bbd7e593a35 (diff) | |
| download | emacs-b77e0a82cad4cf0edba7900fc3b590e4448d845a.tar.gz | |
fix previous change
Diffstat (limited to 'lisp/ps-mule.el')
| -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 |