|
 |
6b07db |
diff --git a/Resource/Init/gs_ttf.ps b/Resource/Init/gs_ttf.ps
|
|
|
6b07db |
index 064b6c8..600907e 100644
|
|
|
6b07db |
--- a/Resource/Init/gs_ttf.ps
|
|
|
6b07db |
+++ b/Resource/Init/gs_ttf.ps
|
|
|
6b07db |
@@ -1421,7 +1421,7 @@ mark
|
|
|
6b07db |
TTFDEBUG { (\n1 setting alias: ) print dup ==only
|
|
|
6b07db |
( to be the same as ) print 2 index //== exec } if
|
|
|
6b07db |
|
|
|
6b07db |
- 7 index 2 index 3 -1 roll exch .forceput
|
|
|
6b07db |
+ 7 index 2 index 3 -1 roll exch put
|
|
|
6b07db |
} forall
|
|
|
6b07db |
pop pop pop
|
|
|
6b07db |
}
|
|
|
6b07db |
@@ -1439,7 +1439,7 @@ mark
|
|
|
6b07db |
exch pop
|
|
|
6b07db |
TTFDEBUG { (\n2 setting alias: ) print 1 index ==only
|
|
|
6b07db |
( to use glyph index: ) print dup //== exec } if
|
|
|
6b07db |
- 5 index 3 1 roll .forceput
|
|
|
6b07db |
+ 5 index 3 1 roll put
|
|
|
6b07db |
//false
|
|
|
6b07db |
}
|
|
|
6b07db |
{
|
|
|
6b07db |
@@ -1456,7 +1456,7 @@ mark
|
|
|
6b07db |
{ % CharStrings(dict) isunicode(boolean) cmap(dict) RAGL(dict) gname(name) codep(integer) gindex(integer)
|
|
|
6b07db |
TTFDEBUG { (\3 nsetting alias: ) print 1 index ==only
|
|
|
6b07db |
( to be index: ) print dup //== exec } if
|
|
|
6b07db |
- exch pop 5 index 3 1 roll .forceput
|
|
|
6b07db |
+ exch pop 5 index 3 1 roll put
|
|
|
6b07db |
}
|
|
|
6b07db |
{
|
|
|
6b07db |
pop pop
|
|
|
6b07db |
@@ -1486,7 +1486,7 @@ mark
|
|
|
6b07db |
} ifelse
|
|
|
6b07db |
]
|
|
|
6b07db |
TTFDEBUG { (Encoding: ) print dup === flush } if
|
|
|
6b07db |
-} .bind executeonly odef % hides .forceput
|
|
|
6b07db |
+} .bind odef
|
|
|
6b07db |
|
|
|
6b07db |
% to be removed 9.09......
|
|
|
6b07db |
currentdict /postalias undef
|