summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/eptex.ech
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2019-07-21 06:43:32 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2019-07-21 06:43:32 +0000
commit192f16e129a14829c9693e09da55c53986c06aaa (patch)
tree6997b4a11422594f64072f8fcebbae4a1a460359 /Build/source/texk/web2c/eptexdir/eptex.ech
parent35bcc9d8a9c227368421d97f78fd4023ed7f3f94 (diff)
eptex.ech: more compatible with original e-TeX
git-svn-id: svn://tug.org/texlive/trunk@51694 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/eptex.ech')
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech6
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
index bd62a7ba28e..2c7fe7b4e34 100644
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ b/Build/source/texk/web2c/eptexdir/eptex.ech
@@ -553,7 +553,7 @@ font_char_ic_code: begin scan_font_ident; q:=cur_val;
end
else cur_val:=0;
end
- else begin scan_char_num;
+ else begin scan_ascii_num;
if (font_bc[q]<=cur_val)and(font_ec[q]>=cur_val) then
begin i:=orig_char_info(q)(qi(cur_val));
case m of
@@ -646,7 +646,7 @@ if_font_char_code:begin scan_font_ident; n:=cur_val; scan_char_num;
end;
@y
if_font_char_code:begin scan_font_ident; n:=cur_val;
- if font_dir[n]<>dir_default then
+ if font_dir[n]<>dir_default then {Japanese font}
begin scan_int;
if cur_val>=0 then b:=is_char_kanji(cur_val)
{ In u\pTeX, $\hbox{|is_char_kanji|} = \lambda x\mathpunct{.} x\ge 0$ }
@@ -655,7 +655,7 @@ if_font_char_code:begin scan_font_ident; n:=cur_val;
b:=(font_bc[n]<=cur_val)and(font_ec[n]>=cur_val)
end
end
- else begin scan_char_num;
+ else begin scan_ascii_num;
if (font_bc[n]<=cur_val)and(font_ec[n]>=cur_val) then @/
b:=char_exists(orig_char_info(n)(qi(cur_val)))
else b:=false;