From 2f3a9d50b8e495383a2ee0fc7e95728bc81be7ca Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 27 Jul 2005 12:35:51 +0000 Subject: [PATCH] (ps-mule-composition-prologue): Fix for the case that RelativeCompose is false. --- lisp/ChangeLog | 2 ++ lisp/ps-mule.el | 7 +++++-- 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 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 ] -- 2.39.2