summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/gs_cidcm.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gs_cidcm.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/gs_cidcm.ps15
1 files changed, 9 insertions, 6 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_cidcm.ps b/Master/tlpkg/tlgs/lib/gs_cidcm.ps
index 5a6e0e2d98e..9b410f7cc90 100644
--- a/Master/tlpkg/tlgs/lib/gs_cidcm.ps
+++ b/Master/tlpkg/tlgs/lib/gs_cidcm.ps
@@ -13,7 +13,7 @@
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-% $Id: gs_cidcm.ps 8022 2007-06-05 22:23:38Z giles $
+% $Id: gs_cidcm.ps 8492 2008-01-18 21:50:38Z alexcher $
% Extending Font resource category with CIDFont-CMap fonts.
languagelevel 2 .setlanguagelevel currentglobal true setglobal
@@ -171,12 +171,15 @@ currentdict end def
RESMPDEBUG { (cidcm GetCIDSystemInfo from file ) print dup = } if
currentglobal exch true setglobal % CSIs /InstName g (path)
mark exch % CSIs /InstName g [ (path)
- { (r) file % CSIs /InstName g [ file
- //GetCIDSystemInfoFromFile exec % CSIs /InstName g [ CSI
- } stopped {
- cleartomark //.prs_empty
+ { (r) file } stopped {
+ cleartomark //.prs_empty
} {
- exch pop
+ exch 1 index % CSIs /InstName g file [ file
+ //GetCIDSystemInfoFromFile stopped {
+ cleartomark closefile //.prs_empty
+ } {
+ exch pop exch closefile
+ } ifelse
} ifelse % CSIs /InstName g CSI
exch setglobal % CSIs /InstName CSI
dup 4 1 roll % CSI CSIs /InstName CSI