# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 982665734 0
# Node ID aa6d6e43792f43eb6e47f414134483a5b01ee0af
# Parent  f2ca7236963b6f6db01de9381c0e17b8e88464af
Code fix to support `ps-zebra-stripe-follow'
funcionality enhancement.
(doColumnZebra): Code fix.

diff -r f2ca7236963b -r aa6d6e43792f etc/ps-prin1.ps
--- a/etc/ps-prin1.ps	Tue Feb 20 10:41:10 2001 +0000
+++ b/etc/ps-prin1.ps	Tue Feb 20 10:42:14 2001 +0000
@@ -343,7 +343,7 @@
 /doColumnZebra{
   /lpc exch def
   gsave
-  ZebraFollow{
+  ZebraFollow 1 and 0 ne{
     /H ZebraHeight zebra-line ZebraHeight mod sub def
     /lpc lpc H sub def
     zebra-line double-zebra mod ZebraHeight lt
@@ -355,8 +355,8 @@
     /zebra-line zebra-line LinesPerColumn add def
   }if
   lpc dup double-zebra idiv{ZebraHeight doZebra 0 yiter rmoveto}repeat
-  double-zebra mod
-  dup 0 le{pop}{dup ZebraHeight gt{pop ZebraHeight}if doZebra}ifelse
+  double-zebra mod dup 0 le{pop}
+  {dup ZebraHeight gt ZebraFollow 2 and 0 ne or{pop ZebraHeight}if doZebra}ifelse
   grestore
 }def