diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-03-31 13:00:41 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-03-31 13:00:41 +0000 |
commit | e197848863027c2230d6210dc74dede87da4e9df (patch) | |
tree | 5964f9ade12017d4582ffeac0973714c08d4c9a2 /Build/source/texk/web2c/eptexdir/eptex.ech | |
parent | 3cc388b38baa1753180bf4a02aade22a6e461638 (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.ech | 10 |
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); |