(ps-mule-composition-prologue): Fix for the case that

RelativeCompose is false.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e7f79c2965..0deea9eb612 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,8 @@
 
         * ps-mule.el (ps-mule-bitmap-prologue): Fix arguments to
         setcharwidth.
+        (ps-mule-composition-prologue): Fix for the case that
+        RelativeCompose is false.
 
 2005-07-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 2bae4de7d44..e57e030c40b 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -1039,9 +1039,12 @@ the sequence."
             /BOTTOM LLY def
             currentfont /RelativeCompose known {
                 /relative currentfont /RelativeCompose get def
+                relative false eq {
+                    %% Disable relative composition by setting sufficiently low
+                    %% and high positions.
+                    /relative [ -100000 100000 ] def
+                } if
             } {
-                %% Disable relative composition by setting sufficiently low
-                %% and high positions.
                 /relative [ -100000 100000 ] def
             } ifelse
             [ elt 0 0 ]