diff etc/ps-prin1.ps @ 28154:16202d8d02cf

Eliminate CheckConfig.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 15 Mar 2000 13:39:10 +0000
parents e0beb5cd0257
children 4719f42a44e2
line wrap: on
line diff
--- a/etc/ps-prin1.ps	Wed Mar 15 13:35:02 2000 +0000
+++ b/etc/ps-prin1.ps	Wed Mar 15 13:39:10 2000 +0000
@@ -389,9 +389,7 @@
   /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 @@
 % 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