From: Gerd Moellmann Date: Fri, 29 Dec 2000 11:47:19 +0000 (+0000) Subject: Handle form feed better when ps-zebra-stripe-follow X-Git-Tag: emacs-pretest-21.0.95~238 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc8921906b8b4d635f94ad11cbdb6f37d5e82cb1;p=emacs.git Handle form feed better when ps-zebra-stripe-follow is non-nil. (printZebra, BeginPage): Code fix. --- diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps index 007c2e01003..4c6acf8dbe0 100644 --- a/etc/ps-prin1.ps +++ b/etc/ps-prin1.ps @@ -334,7 +334,7 @@ StandardEncoding 46 82 getinterval aload pop /double-zebra ZebraHeight ZebraHeight add def /yiter double-zebra LineHeight mul neg def /xiter PrintWidth InterColumn add def - /zebra-line PageNumber 1 sub NumberOfColumns mul LinesPerColumn mul def + /zebra-line LinesPrinted def NumberOfColumns{LinesPerColumn doColumnZebra xiter 0 rmoveto}repeat grestore }def @@ -456,6 +456,7 @@ StandardEncoding 46 82 getinterval aload pop /PrintHeaderWidth PrintOnlyOneHeader{PrintPageWidth}{PrintWidth}ifelse def /BeginPage{ + /LinesPrinted exch def % ---- when 1st column, print all background effects ColumnIndex 1 eq{ 0 PrintStartY moveto % move to where printing will start