summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/ovp2ovf.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/ovp2ovf.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/ovp2ovf.web')
-rw-r--r--Build/source/texk/web2c/omegaware/ovp2ovf.web6
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.web b/Build/source/texk/web2c/omegaware/ovp2ovf.web
index c09ed23af6b..e10d0faaa7f 100644
--- a/Build/source/texk/web2c/omegaware/ovp2ovf.web
+++ b/Build/source/texk/web2c/omegaware/ovp2ovf.web
@@ -774,7 +774,7 @@ code is printed in octal notation. Up to eight such codes appear on a line;
so we have a variable to keep track of how many are currently there.
@<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}
@ @<Set init...@>=
chars_on_line:=0;
@@ -2613,7 +2613,7 @@ if ((c+crange)>max_char) then begin
err_print('Character range too large');
crange:=0;
end;
-print('-'); print_hex(c+crange);
+print('-'); print_hex(c+crange); incr(chars_on_line);
while level=1 do begin
while cur_char=" " do get_next;
if cur_char="(" then read_character_property
@@ -2804,7 +2804,7 @@ print_digs(j);
end;
@ @<Print |c| in hex...@>=
-begin if chars_on_line=8 then begin
+begin if chars_on_line>=8 then begin
print_ln(' '); chars_on_line:=1;
end
else begin