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