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 | d871dedee2117915045dbf9934360ee0df7b2df2 (patch) | |
| tree | ad5dcf262a776c891824de231c6a2e4a7334f864 /etc/ps-prin1.ps | |
| parent | b52002c796b9a7b945dee482ca6a914bd77a2de1 (diff) | |
| download | emacs-d871dedee2117915045dbf9934360ee0df7b2df2.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 |