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

RelativeCompose is false.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e7f79c296523f44ab759be5a224dd690726e1eb..0deea9eb61222986eaecfcbd6da4ac483b2972c3 100644 (file)
--- 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 2bae4de7d446def87ee3f0075ab929407e56736b..e57e030c40b87729bb67acabfe2ac4f93c1b0162 100644 (file)
--- 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 ]