diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-03-30 03:08:48 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-03-30 03:08:48 +0000 |
| commit | 30301a737a0f344769d4dbbc5f91209d6917bc97 (patch) | |
| tree | 1347c1cf2527dc51d398af4b4e6f52ed3ecaefa1 /etc/ps-prin1.ps | |
| parent | 62ce3608303fa8f31f43238a1ee05800d4a1a6ed (diff) | |
| download | emacs-30301a737a0f344769d4dbbc5f91209d6917bc97.tar.gz | |
Clip the header and footer area.
Diffstat (limited to 'etc/ps-prin1.ps')
| -rw-r--r-- | etc/ps-prin1.ps | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps index 1716562b0f4..70adabc7b0c 100644 --- a/etc/ps-prin1.ps +++ b/etc/ps-prin1.ps @@ -751,6 +751,9 @@ StandardEncoding 46 82 getinterval aload pop 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 @@ StandardEncoding 46 82 getinterval aload pop }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{ |