diff options
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps')
-rw-r--r-- | Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps b/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps index bba3c8c0e10..0fc72300f39 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps @@ -204,8 +204,8 @@ level2dict begin mark % First put the device's default page size in slot 0 % This satifies those that have devices built with a4 as the default - 0 mark /PageSize /GetDeviceParam .special_op - not {/setpagedevice .systemvar /configurationerror signalerror} if .dicttomark + 0 mark /PageSize currentdevice /PageSize gsgetdeviceprop .dicttomark + % Only populate the other entries if we aren't FIXEDMEDIA FIXEDMEDIA not { statusdict /.pagetypenames get { @@ -624,7 +624,7 @@ SETPDDEBUG { (Rolling back.) = pstack flush } if { 4 index 3 1 roll .forceput } { 3 index exch .undef } ifelse - } .bind executeonly % must be bound and hidden for .forceput + } .bind 7 { % For PageSize only, just impose the request. 1 index /PageSize eq { pop pop 1 index /PageSize 7 put } |