# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1122467729 0
# Node ID 0982eb053b07aaa22f2870e004141594209ab46e
# Parent  9bee98496ab5a15e7441a10e82d4e151f03c225a
(ps-mule-composition-prologue): Fix for the case that
RelativeCompose is false.

diff -r 9bee98496ab5 -r 0982eb053b07 lisp/ps-mule.el
--- a/lisp/ps-mule.el	Wed Jul 27 08:00:52 2005 +0000
+++ b/lisp/ps-mule.el	Wed Jul 27 12:35:29 2005 +0000
@@ -1039,9 +1039,12 @@
 	    /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 ]