diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-02-20 10:42:14 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-02-20 10:42:14 +0000 |
commit | 1942ca6c6487cff4ef1928f43c34264d3675bc23 (patch) | |
tree | 85a8f760fa4e58bf2293497b27eac125dd3e9512 | |
parent | 40e9ad5bdb99f77f0436e972b980400cd0209a03 (diff) | |
download | emacs-1942ca6c6487cff4ef1928f43c34264d3675bc23.tar.gz |
Code fix to support `ps-zebra-stripe-follow'
funcionality enhancement.
(doColumnZebra): Code fix.
-rw-r--r-- | etc/ps-prin1.ps | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/etc/ps-prin1.ps b/etc/ps-prin1.ps index 4c6acf8dbe0..c4a524bcba5 100644 --- a/etc/ps-prin1.ps +++ b/etc/ps-prin1.ps @@ -343,7 +343,7 @@ StandardEncoding 46 82 getinterval aload pop /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 @@ StandardEncoding 46 82 getinterval aload pop /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 |