diff lisp/ps-mule.el @ 64647:0982eb053b07

(ps-mule-composition-prologue): Fix for the case that RelativeCompose is false.
author Kenichi Handa <handa@m17n.org>
date Wed, 27 Jul 2005 12:35:29 +0000
parents 734c19798185
children 41bb365f41c4
line wrap: on
line diff
--- 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 ]