Mercurial > emacs
changeset 28154:16202d8d02cf
Eliminate CheckConfig.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 15 Mar 2000 13:39:10 +0000 |
| parents | 111343598e3e |
| children | f568116325f9 |
| files | etc/ps-prin1.ps etc/ps-prin3.ps |
| diffstat | 2 files changed, 5 insertions(+), 29 deletions(-) [+] |
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
--- a/etc/ps-prin3.ps Wed Mar 15 13:35:02 2000 +0000 +++ b/etc/ps-prin3.ps Wed Mar 15 13:39:10 2000 +0000 @@ -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