diff options
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps')
-rw-r--r-- | Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps b/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps index f84a495e37a..0733af0fbb6 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps @@ -497,7 +497,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if dup length dict exch { dup type /dicttype eq { .copytree } if 2 index 3 1 roll put } forall -} bind def +} def /currentpagedevice { .currentpagedevice { @@ -674,7 +674,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if } ifelse } forall pop -} bind executeonly odef +} .bind executeonly odef currentdict /0Policy undef currentdict /1Policy undef @@ -1003,7 +1003,7 @@ SETPDDEBUG { (Installing.) = pstack flush } if //.postinstall exec } ifelse setglobal % return to original VM allocation mode -} bind executeonly odef +} .bind executeonly odef % We break out the code after calling the Install procedure into a % separate procedure, since it is executed even if Install causes an error. @@ -1030,14 +1030,15 @@ SETPDDEBUG { (Installing.) = pstack flush } if /.trysetparams /.installpagedevice /.postinstall - /.copytree /.defaultdeviceparams /.makecurrentpagedevice /.mergespecial /.requiredattrs + /.applypolicies +% /.copytree % /.uninstallpagedevice % (called from C code) -] -{currentdict exch .forceundef} forall +] dup currentdict .undefinternalnames +systemdict .undefinternalnames end % level2dict .setlanguagelevel |