summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/ofm2opl.web
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-11 12:21:20 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-11 12:21:20 +0000
commit7281a389c2ba0012ed7f9fa2492d1f66e7e1ae0b (patch)
treec3f43cb70f9fe081937d5227606bf8a0f5f25ed7 /Build/source/texk/web2c/omegaware/ofm2opl.web
parent757ba356f7d2bd2003c5bc74ecfa928d8bfdcc08 (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.web6
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