texlive[45228] Build/source/texk/web2c/eptexdir: eptexdir: fix a bug

[commits+kakuto at tug.org]

Revision: 45228
          http://tug.org/svn/texlive?view=revision&revision=45228
Author:   kakuto
Date:     2017-09-06 09:57:07 +0200 (Wed, 06 Sep 2017)
Log Message:
-----------
eptexdir: fix a bug in \epTeXinputencoding (by N. Abe)

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	2017-09-06 06:21:53 UTC (rev 45227)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2017-09-06 07:57:07 UTC (rev 45228)
@@ -1,3 +1,7 @@
+2017-09-06  Noriyuki Abe  <abenori at math.sci.hokudai.ac.jp>
+
+	* eptex.ech: fix a bug in \epTeXinputencoding.
+
 2017-04-24  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* eptex.ech, etex.ch1, euptex.ch0, pdfutils.ch:

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2017-09-06 06:21:53 UTC (rev 45227)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2017-09-06 07:57:07 UTC (rev 45228)
@@ -343,7 +343,7 @@
   begin
     scan_file_name;
     pack_cur_name;
-    if setinfileenc(cur_file,stringcast(name_of_file+1)) = false then
+    if setinfileenc(input_file[in_open],stringcast(name_of_file+1)) = false then
     begin
       wlog_cr;
       wlog('Unknown encoding `');