Mercurial > emacs
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