summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/eptex.ech
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-03-31 13:00:41 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-03-31 13:00:41 +0000
commite197848863027c2230d6210dc74dede87da4e9df (patch)
tree5964f9ade12017d4582ffeac0973714c08d4c9a2 /Build/source/texk/web2c/eptexdir/eptex.ech
parent3cc388b38baa1753180bf4a02aade22a6e461638 (diff)
Bug fix and TeX formatting from Hironori Kitagawa
git-svn-id: svn://tug.org/texlive/trunk@21902 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/eptex.ech')
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech10
1 files changed, 4 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
index f030f0da21f..f81427e64ed 100644
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ b/Build/source/texk/web2c/eptexdir/eptex.ech
@@ -147,8 +147,9 @@ q:=head; p:=null; r:=null; fm:=0; fd:=0; disp:=0; pdisp:=0;
repeat s:=r; r:=p; p:=q; fm:=fm div 2; fd:=fd div 2;
if not is_char_node(q) then
if type(q)=disc_node then
- begin for m:=1 to replace_count(q) do p:=link(p);
- if p=tx then #;
+ begin for m:=1 to replace_count(q) do
+ begin p:=link(p); if p=tx then #; end
+ { |tx| might be a part of discretionary; in this case, nothing will be removed}
end
else if (type(q)=math_node)and(subtype(q)=begin_M_code) then fm:=2
else if type(q)=disp_node then
@@ -278,9 +279,6 @@ othercases goto next_p
@y
disp_node: begin
disp2:=disp_dimen(p); disp_dimen(p):=disp; disp:=disp2;
- { print_nl("ep TeXXeT:"); print_int(disp_dimen(p)); }
- { print(" -> "); print_int(disp); }
- { if not disped then begin disped:=true; print(" NL"); end; end; }
if not disped then disped:=true; end;
othercases goto next_p
@z
@@ -288,7 +286,7 @@ othercases goto next_p
@x e-pTeX: ifcsname l.28620
buffer[m]:=info(p) mod @'400; incr(m); p:=link(p);
@y
- if check_kanji(info(p)) then {wchar_token}
+ if check_kanji(info(p)) then {|wchar_token|}
begin buffer[m]:=Hi(info(p)); incr(m);
end;
buffer[m]:=Lo(info(p)); incr(m); p:=link(p);