1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00

Clip the header and footer area.

This commit is contained in:
Vinicius Jose Latorre 2004-03-30 03:08:48 +00:00
parent 62ce360830
commit 30301a737a
2 changed files with 14 additions and 0 deletions

View File

@ -1,3 +1,10 @@
2004-03-29 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-prin1.ps: Clip the header and footer area, so text will not be
printed outside header or footer, respectively.
(HeaderClip, FooterClip): New PostScript funs.
(HeaderText, FooterText): Adjust PostScript code.
2004-03-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* TODO: Removed drag-and-drop entry (DONE).

View File

@ -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{