Mercurial > emacs
diff etc/ps-prin1.ps @ 54653:93ff165d67c8
Clip the header and footer area.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Tue, 30 Mar 2004 03:08:48 +0000 |
parents | e5675426ff4c |
children | f248c564b121 |
line wrap: on
line diff
--- a/etc/ps-prin1.ps Mon Mar 29 23:00:22 2004 +0000 +++ b/etc/ps-prin1.ps Tue Mar 30 03:08:48 2004 +0000 @@ -751,6 +751,9 @@ FooterLineHeight FooterLines 1 sub mul add }def +/HeaderClip{HeaderFrameStart moveto HeaderFramePath clip}def +/FooterClip{FooterFrameStart moveto FooterFramePath clip}def + /strcat{ dup length 3 -1 roll dup length dup 4 -1 roll add string dup 0 5 -1 roll putinterval @@ -803,17 +806,21 @@ }def /HeaderText{ + gsave HeaderClip HeaderLinesRight HeaderLinesLeft /HeaderStart HeaderLineHeight HeaderPad HeaderFrameProperties 0 get HeaderOrFooterText + grestore }def /FooterText{ + gsave FooterClip FooterLinesRight FooterLinesLeft /FooterStart FooterLineHeight FooterPad FooterFrameProperties 0 get HeaderOrFooterText + grestore }def /ReportFontInfo{