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 | 385f740883091cf4d36860c4f87a5df53c7f1b5a (patch) | |
| tree | 36ed726e3d3377dd32b8ed2e20ce738ec80d803d /etc | |
| parent | 2bd80d73dad66ed1679c99d3a2fb368759f7398f (diff) | |
| download | emacs-385f740883091cf4d36860c4f87a5df53c7f1b5a.tar.gz | |
Code fix to support `ps-zebra-stripe-follow'
funcionality enhancement.
(doColumnZebra): Code fix.
Diffstat (limited to 'etc')
| -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 |