Mercurial > emacs

changeset 54653:93ff165d67c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clip the header and footer area.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Tue, 30 Mar 2004 03:08:48 +0000
parents d4784167544e
children f248c564b121
files etc/ChangeLog etc/ps-prin1.ps
diffstat 2 files changed, 14 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/etc/ChangeLog	Mon Mar 29 23:00:22 2004 +0000
+++ b/etc/ChangeLog	Tue Mar 30 03:08:48 2004 +0000
@@ -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).
--- 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{