mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

Clip the header and footer area.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
etc/ChangeLog
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> 2004-03-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* TODO: Removed drag-and-drop entry (DONE). * TODO: Removed drag-and-drop entry (DONE).

7
etc/ps-prin1.ps
View File

@ -751,6 +751,9 @@ StandardEncoding 46 82 getinterval aload pop
FooterLineHeight FooterLines 1 sub mul add FooterLineHeight FooterLines 1 sub mul add
}def }def
/HeaderClip{HeaderFrameStart moveto HeaderFramePath clip}def
/FooterClip{FooterFrameStart moveto FooterFramePath clip}def
/strcat{ /strcat{
dup length 3 -1 roll dup length dup 4 -1 roll add string dup dup length 3 -1 roll dup length dup 4 -1 roll add string dup
0 5 -1 roll putinterval 0 5 -1 roll putinterval
@ -803,17 +806,21 @@ StandardEncoding 46 82 getinterval aload pop
}def }def
/HeaderText{ /HeaderText{
gsave HeaderClip
HeaderLinesRight HeaderLinesLeft HeaderLinesRight HeaderLinesLeft
/HeaderStart HeaderLineHeight HeaderPad /HeaderStart HeaderLineHeight HeaderPad
HeaderFrameProperties 0 get HeaderFrameProperties 0 get
HeaderOrFooterText HeaderOrFooterText
grestore
}def }def
/FooterText{ /FooterText{
gsave FooterClip
FooterLinesRight FooterLinesLeft FooterLinesRight FooterLinesLeft
/FooterStart FooterLineHeight FooterPad /FooterStart FooterLineHeight FooterPad
FooterFrameProperties 0 get FooterFrameProperties 0 get
HeaderOrFooterText HeaderOrFooterText
grestore
}def }def
/ReportFontInfo{ /ReportFontInfo{