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

[Tanaka Akira <akr@xxxxxxxxxxx>]

In article <rsq67aj2ytu.fsf@xxxxxxxxxxxxxxxxx>,
  Tanaka Akira <akr@xxxxxxxxxxx> writes:

> -dNOPLATFONTS $B$NM-L5$G5sF0$,JQ$o$k$H$$$&OC$K$O6=L#$r0z$+$l$k$b$N$,$"$j$^$9!#(B
> 
> ps file $B$rAw$C$F$$$?$@$1$^$;$s$+(B?

$BGr0f$5$s$+$iAw$C$F$$$?$@$-!"D/$a$F$_$^$7$?!#(B

$B$I!<$d$i!"(Bscalefont $B$N7k2L$rD>@\(B definefont $B$9$k$N$,860x$i$7$$$G$9!#(B

$B$?$@!"$3$l$,(B gs $B$N(B bug $B$J$N$+(B ps-print $B$N(B bug $B$J$N$+$O<B$N$H$3$mNI$/$o(B
$B$+$j$^$;$s!#$G$b!"$J$s$H$J$/(B gs $BB&$NLdBj$N$h$&$J5$$,$7$^$9!#(B

# $B$?$@$7!"(Boriginal $B$N(B gs $B$G$bH/@8$5$;$k$3$H$,$G$-$k$N$G!"F|K\8l2=%Q%C(B
# $B%A$NLdBj$G$O$J$$$N$O4V0c$$$J$$!#(B

$B$^$?!"(Bworkaround $B$H$7$F$O<!$N$h$&$J%Q%C%A$r(B ps file $B$KE,MQ$9$k$3$H$K$h$C(B
$B$FLdBj$,>C$($k$h$&$G$9!#(B

ps-print $B$r$I!<JQ99$9$k$Y$-$+$OD4$Y$F$$$^$;$s$,!"(Bscalefont $B$H(B
definefont $B$N4V$KA^F~$9$k$@$1$G$9$+$i!"$=$s$J$KFq$7$/$J$$$s$8$c$J$$$+(B
$B$HA[A|$7$^$9!#(B

--- akr.ps	Thu Jan  7 19:53:03 1999
+++ akr2.ps	Thu Jan  7 19:53:17 1999
@@ -703,7 +703,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.
-- 
[$BEDCf(B $BE/(B][$B$?$J$+(B $B$"$-$i(B][Tanaka Akira]
$B!V$"!<$^!<$k!<$9!<$A$c$s!#0l=o$K$*JY6/$7$^$7$g$(C"=$B!W(B(E.G.$B%3%s%P%C%H(B2nd, $B=);3?p?M(B)