texlive[59936] Build/source/texk/web2c/eptexdir: eptex: sync with

[commits+hironobu at tug.org]

Revision: 59936
          http://tug.org/svn/texlive?view=revision&revision=59936
Author:   hironobu
Date:     2021-07-15 13:17:34 +0200 (Thu, 15 Jul 2021)
Log Message:
-----------
eptex: sync with upstream (H. Kitagawa)

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	2021-07-14 23:48:33 UTC (rev 59935)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2021-07-15 11:17:34 UTC (rev 59936)
@@ -1,3 +1,7 @@
+2021-07-15  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* eptex.ech: Fix a warning message from \epTeXinputencoding.
+
 2021-07-01  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* eptex.ech: Revise \lastnodesubtype to show math "noad" types,

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2021-07-14 23:48:33 UTC (rev 59935)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2021-07-15 11:17:34 UTC (rev 59936)
@@ -461,13 +461,13 @@
       begin if input_stack[k].state_field=token_list then decr(k)
       else if input_stack[k].name_field>19 then
         begin j:=input_stack[k].index_field; k:=-1; end
-      else begin j:=-(name+1); k:=-1; end
+      else begin j:=-(input_stack[k].name_field+1); k:=-1; end
       end
     end
   else if name>19 then j:=index else j:=-(name+1);
   if (j>=0) or (j=-1) or (j=-18) then begin
     k:=true;
-    if j>= 0 then k:=setinfileenc(input_file[j],stringcast(name_of_file+1))
+    if j>=0 then k:=setinfileenc(input_file[j],stringcast(name_of_file+1))
     else k:=setstdinenc(stringcast(name_of_file+1));
     if k = false then
       begin begin_diagnostic;