diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-01-11 12:21:20 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-01-11 12:21:20 +0000 |
commit | 7281a389c2ba0012ed7f9fa2492d1f66e7e1ae0b (patch) | |
tree | c3f43cb70f9fe081937d5227606bf8a0f5f25ed7 /Build/source/texk/web2c/omegaware/ofm2opl.web | |
parent | 757ba356f7d2bd2003c5bc74ecfa928d8bfdcc08 (diff) |
web2c/omegaware: Fix glitches in online printing of progress report
git-svn-id: svn://tug.org/texlive/trunk@32636 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/ofm2opl.web')
-rw-r--r-- | Build/source/texk/web2c/omegaware/ofm2opl.web | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.web b/Build/source/texk/web2c/omegaware/ofm2opl.web index 6e3f442ca79..0c678907aaf 100644 --- a/Build/source/texk/web2c/omegaware/ofm2opl.web +++ b/Build/source/texk/web2c/omegaware/ofm2opl.web @@ -1195,7 +1195,7 @@ to keep track of how many are currently there. We also keep track of whether or not any errors have had to be corrected. @<Glob...@>= -@!chars_on_line:0..8; {the number of characters printed on the current line} +@!chars_on_line:0..9; {the number of characters printed on the current line} @!perfect:boolean; {was the file free of errors?} @ @<Set init...@>= @@ -1917,14 +1917,14 @@ sort_ptr:=0; {this will suppress `\.{STOP}' lines in ligature comments} c:=bc; while (c<=ec) do begin if width_index(c)>0 then - begin if chars_on_line=8 then + begin if chars_on_line>=8 then begin print_ln(' '); chars_on_line:=1; end else begin if chars_on_line>0 then print(' '); incr(chars_on_line); end; if no_repeats(c)>0 then begin - print_hex(c); print('-'); print_hex(c+no_repeats(c)); + print_hex(c); print('-'); print_hex(c+no_repeats(c)); incr(chars_on_line); left; out('CHARREPEAT'); out_char(c); out_char(no_repeats(c)); out_ln; end else begin |