texlive[51694] Build/source/texk/web2c/eptexdir: eptex.ech: more

[commits+hironobu at tug.org]

Revision: 51694
          http://tug.org/svn/texlive?view=revision&revision=51694
Author:   hironobu
Date:     2019-07-21 08:43:32 +0200 (Sun, 21 Jul 2019)
Log Message:
-----------
eptex.ech: more compatible with original e-TeX

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/ChangeLog
    trunk/Build/source/texk/web2c/eptexdir/eptex.ech

Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2019-07-20 23:53:09 UTC (rev 51693)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2019-07-21 06:43:32 UTC (rev 51694)
@@ -1,3 +1,9 @@
+2019-07-21  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* eptex.ech: More compatible with original e-TeX, because
+	'\fontchar??' and '\iffontchar' for Latin font is effective
+	only for 0--255.
+
 2019-07-09  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* pdfutils.ch: Add primitive \ifincsname.

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2019-07-20 23:53:09 UTC (rev 51693)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2019-07-21 06:43:32 UTC (rev 51694)
@@ -553,7 +553,7 @@
       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 @@
   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 @@
       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;