Eliminate CheckConfig.

diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps
index e3401b1d2b727cb62b40c8c5dbf271f83d863b3b..a5bc1f44eae1ce047b83283130de6e5cc161aaf6 100644 (file)
--- a/etc/ps-prin1.ps
+++ b/etc/ps-prin1.ps
@@ -389,9 +389,7 @@ StandardEncoding 46 82 getinterval aload pop
   /docState save def
   % ---- [andrewi] set PageSize based on chosen dimensions
   UseSetpagedevice{
-    0
-    {<< /PageSize [PageWidth LandscapePageHeight] >> setpagedevice}
-    CheckConfig
+    << /PageSize [PageWidth LandscapePageHeight] >> setpagedevice
   }{
     LandscapeMode{
       % ---- translate to bottom-right corner of Portrait page
@@ -695,24 +693,4 @@ StandardEncoding 46 82 getinterval aload pop
 % 3 cm 20 cm moveto  10 /Courier ReportFontInfo  showpage
 % 3 cm 20 cm moveto  ReportAllFontInfo           showpage
 
-/ErrorMessages
- [(This PostScript printer is not configured with this document page size.)
-  (Duplex printing is not supported on this PostScript printer.)]def
-
-% stack: error-index proc |- --
-/CheckConfig{
-  stopped{
-   1 cm LandscapePageHeight 0.5 mul moveto
-   /Courier findfont 10 scalefont setfont
-   gsave
-    (ps-print error:) show
-   grestore
-   0 -10 rmoveto
-   ErrorMessages exch get show
-   showpage
-   $error /newerror false put
-   stop
-  }if
-}bind def
-
 % === END ps-print prologue 1

diff --git a/etc/ps-prin3.ps b/etc/ps-prin3.ps
index c1da3503a7893c4a395e775fe527daa658f4bb8c..9e916e81c44fc57f5ed33bd4c110b6a364548e35 100644 (file)
--- a/etc/ps-prin3.ps
+++ b/etc/ps-prin3.ps
@@ -1,14 +1,12 @@
 % === BEGIN ps-print prologue 3
 
 % --- duplex feature verification
-1
 UseSetpagedevice {
-  {<< /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice}
+  << /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice
 }{
-  {statusdict begin
-    DuplexValue setduplexmode TumbleValue settumble
-   end}
+  statusdict begin
+   DuplexValue setduplexmode TumbleValue settumble
+  end
 }ifelse
-CheckConfig
 
 % === END ps-print prologue 3