# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 926578204 0
# Node ID 4321a26f659488748e5051b5260a195caaa8a83b
# Parent  25eb63742593132b7d75c2fe549efa14edaa6ad5
fix previous change

diff -r 25eb63742593 -r 4321a26f6594 lisp/ps-mule.el
--- 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