summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps6
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 0fc72300f39..bba3c8c0e10 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 currentdevice /PageSize gsgetdeviceprop .dicttomark
-
+ 0 mark /PageSize /GetDeviceParam .special_op
+ not {/setpagedevice .systemvar /configurationerror signalerror} if .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
+ } .bind executeonly % must be bound and hidden for .forceput
7 { % For PageSize only, just impose the request.
1 index /PageSize eq
{ pop pop 1 index /PageSize 7 put }