From: Kenichi Handa <handa@m17n.org>
Date: Wed, 27 Jul 2005 12:35:51 +0000 (+0000)
Subject: (ps-mule-composition-prologue): Fix for the case that
X-Git-Tag: emacs-pretest-22.0.90~7867
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f3a9d50b8e495383a2ee0fc7e95728bc81be7ca;p=emacs.git

(ps-mule-composition-prologue): Fix for the case that
RelativeCompose is false.
---

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 ]