diff options
-rw-r--r-- | Build/source/texk/web2c/eptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/eptex.ech | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog index 9b38c0d0738..898c7a5a083 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog +++ b/Build/source/texk/web2c/eptexdir/ChangeLog @@ -1,3 +1,7 @@ +2021-07-15 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * eptex.ech: Fix a warning message from \epTeXinputencoding. + 2021-07-01 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * eptex.ech: Revise \lastnodesubtype to show math "noad" types, diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech index 669a70ee88c..d60a0f714f7 100644 --- a/Build/source/texk/web2c/eptexdir/eptex.ech +++ b/Build/source/texk/web2c/eptexdir/eptex.ech @@ -461,13 +461,13 @@ begin 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; |