Re: ps-print with Meadow. (Re: ps-print.el and X-Face)

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Tanaka Akira <akr@xxxxxxxxxxx> さん曰く
Subject: Re: ps-print with Meadow. (Re: ps-print.el and X-Face)
Message-ID: <rsqzp7v1gp5.fsf@xxxxxxxxxxxxxxxxx>
Date: 07 Jan 1999 20:10:46 +0900

akr> > -dNOPLATFONTS の有無で挙動が変わるという話には興味を引かれるものがあります。
akr> > 
akr> > ps file を送っていただけませんか?
akr> 
akr> 白井さんから送っていただき、眺めてみました。
akr> 
akr> どーやら、scalefont の結果を直接 definefont するのが原因らしいです。

### すごいなぁ、もうわかっちゃうのですね。

akr> ps-print をどー変更するべきかは調べていませんが、scalefont と
akr> definefont の間に挿入するだけですから、そんなに難しくないんじゃないか
akr> と想像します。
akr> 
akr> --- akr.ps	Thu Jan  7 19:53:03 1999
akr> +++ akr2.ps	Thu Jan  7 19:53:17 1999

akr.ps たしかにこれで動きました。また、田中さんのと全然変わらな
い気もするのですが、こういうパッチになると思います。

# 私にとって、PostScript は謎の記号列 ^^;

--- ps-mule.el.orig	Thu Jan  7 20:27:24 1999
+++ ps-mule.el	Thu Jan  7 20:27:44 1999
@@ -564,7 +564,9 @@
 
 %% Define already scaled font for non-ASCII character sets.
 /DefFontMule {			% fontname size basefont  |-  --
-  findfont exch scalefont definefont pop
+  findfont exch scalefont
+  dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall currentdict end
+  definefont pop
 } bind def
 
 %% Define already scaled font for ASCII character sets.