diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-03-15 13:39:10 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-15 13:39:10 +0000 |
| commit | 58ce180df9675c95c3bbd8f5c1fa35dd013a75b6 (patch) | |
| tree | 196e8df30ad33cfc7258d3cd61d09000b56f76c0 /etc/ps-prin1.ps | |
| parent | 66e63857d6ac370a0d50d91168e6649c535882d6 (diff) | |
| download | emacs-58ce180df9675c95c3bbd8f5c1fa35dd013a75b6.tar.gz | |
Eliminate CheckConfig.
Diffstat (limited to 'etc/ps-prin1.ps')
| -rw-r--r-- | etc/ps-prin1.ps | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps index e3401b1d2b7..a5bc1f44eae 100644 --- 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 |