[gs-cvs] rev 7626 - trunk/gs/lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-01-20 19:37:46 -0800 (Sat, 20 Jan 2007)
New Revision: 7626

Modified:
   trunk/gs/lib/pdf_font.ps
Log:
Apply standard font substitutions in lib/pdf_fonts.ps::TTfonts 
only for fonts that are not already known to the PS intrepreter. 
This allows to customize font substitutions via the Fontmap.

The change affects only TrueType fonts that are NOT embedded 
(less portable PDFs, for which GS already gives a warning).
Bug 688901, patch from SaGS.

DIFFERENCES:
None, our regression test environment doesn't have any of the fonts
listed in TTfonts dictionary.


Modified: trunk/gs/lib/pdf_font.ps
===================================================================
--- trunk/gs/lib/pdf_font.ps	2007-01-20 20:44:36 UTC (rev 7625)
+++ trunk/gs/lib/pdf_font.ps	2007-01-21 03:37:46 UTC (rev 7626)
@@ -827,7 +827,9 @@
   dup /BaseFont oget
   /Repaired true store	% flag that we had warnings
   TTFWarnList 1 index true put	% Add fontname to the list
-  dup TTfonts exch .knownget {
+  dup /Font resourcestatus dup { exch pop exch pop } if not
+  TTfonts 2 index known and {
+    dup TTfonts exch get
     QUIET not {
       (Substituting font ) print dup =only
       ( for ) print 1 index =only (.) = flush