|
 |
3cc549 |
diff --git a/Resource/Init/gs_dps.ps b/Resource/Init/gs_dps.ps
|
|
|
3cc549 |
index 00c14d5..2a6f4f3 100644
|
|
|
3cc549 |
--- a/Resource/Init/gs_dps.ps
|
|
|
3cc549 |
+++ b/Resource/Init/gs_dps.ps
|
|
|
3cc549 |
@@ -117,7 +117,7 @@
|
|
|
3cc549 |
.dicttomark readonly /localdicts exch put
|
|
|
3cc549 |
% localdicts is now defined in userdict.
|
|
|
3cc549 |
% Copy the definitions into systemdict.
|
|
|
3cc549 |
- localdicts { .forcedef } forall
|
|
|
3cc549 |
+ localdicts { .forcedef } executeonly forall
|
|
|
3cc549 |
% Set the user parameters.
|
|
|
3cc549 |
userparams readonly .setuserparams
|
|
|
3cc549 |
% Establish the initial gstate(s).
|
|
|
3cc549 |
diff --git a/Resource/Init/gs_fonts.ps b/Resource/Init/gs_fonts.ps
|
|
|
3cc549 |
index 4807f81..01eca35 100644
|
|
|
3cc549 |
--- a/Resource/Init/gs_fonts.ps
|
|
|
3cc549 |
+++ b/Resource/Init/gs_fonts.ps
|
|
|
3cc549 |
@@ -1136,7 +1136,7 @@ $error /SubstituteFont { } put
|
|
|
3cc549 |
% Stack: fontdict
|
|
|
3cc549 |
} executeonly
|
|
|
3cc549 |
if pop % Stack: origfontname fontdirectory path
|
|
|
3cc549 |
- }
|
|
|
3cc549 |
+ } executeonly
|
|
|
3cc549 |
if pop pop % Stack: origfontname
|
|
|
3cc549 |
|
|
|
3cc549 |
% The font definitely did not load correctly.
|
|
|
3cc549 |
diff --git a/Resource/Init/pdf_font.ps b/Resource/Init/pdf_font.ps
|
|
|
3cc549 |
index f1d1728..46408f9 100644
|
|
|
3cc549 |
--- a/Resource/Init/pdf_font.ps
|
|
|
3cc549 |
+++ b/Resource/Init/pdf_font.ps
|
|
|
3cc549 |
@@ -678,7 +678,7 @@ currentdict end readonly def
|
|
|
3cc549 |
currentglobal 2 index dup gcheck setglobal
|
|
|
3cc549 |
/FontInfo 5 dict dup 5 1 roll .forceput
|
|
|
3cc549 |
setglobal
|
|
|
3cc549 |
- } if
|
|
|
3cc549 |
+ } executeonly if
|
|
|
3cc549 |
dup /GlyphNames2Unicode .knownget not {
|
|
|
3cc549 |
//true % No existing G2U, make one
|
|
|
3cc549 |
} {
|
|
|
3cc549 |
@@ -692,7 +692,7 @@ currentdict end readonly def
|
|
|
3cc549 |
currentglobal exch dup gcheck setglobal
|
|
|
3cc549 |
dup /GlyphNames2Unicode 100 dict dup 4 1 roll .forceput
|
|
|
3cc549 |
3 2 roll setglobal
|
|
|
3cc549 |
- } if % font-res font-dict encoding|null font-info g2u
|
|
|
3cc549 |
+ } executeonly if % font-res font-dict encoding|null font-info g2u
|
|
|
3cc549 |
exch pop exch % font-res font-dict g2u encoding|null
|
|
|
3cc549 |
userdict /.lastToUnicode get % font-res font-dict g2u Encoding|null CMap
|
|
|
3cc549 |
.convert_ToUnicode-into-g2u % font-res font-dict
|