texlive[53156] Build/source/texk/web2c/alephdir: com16bit.ch: Sync

[commits+kakuto at tug.org]

Revision: 53156
          http://tug.org/svn/texlive?view=revision&revision=53156
Author:   kakuto
Date:     2019-12-17 21:59:25 +0100 (Tue, 17 Dec 2019)
Log Message:
-----------
com16bit.ch: Sync with tex.ch for out_what [1374].

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/alephdir/ChangeLog
    trunk/Build/source/texk/web2c/alephdir/com16bit.ch

Modified: trunk/Build/source/texk/web2c/alephdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/ChangeLog	2019-12-17 19:24:59 UTC (rev 53155)
+++ trunk/Build/source/texk/web2c/alephdir/ChangeLog	2019-12-17 20:59:25 UTC (rev 53156)
@@ -1,3 +1,7 @@
+2019-12-18  Akira Kakuto  <kakuto at w32tex.org>
+
+	* com16bit.ch: Sync with tex.ch for out_what [1374].
+
 2019-08-10  Akira Kakuto  <kakuto at w32tex.org>
 
 	* com16bit.ch: Sync with tex.ch for texmf_yesno('log_openout').

Modified: trunk/Build/source/texk/web2c/alephdir/com16bit.ch
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/com16bit.ch	2019-12-17 19:24:59 UTC (rev 53155)
+++ trunk/Build/source/texk/web2c/alephdir/com16bit.ch	2019-12-17 20:59:25 UTC (rev 53156)
@@ -2695,7 +2695,16 @@
     @!old_setting:0..max_selector;
 @z
 
- at x [53.1374] Disallow certain \openout filenames, and log results.
+ at x [53.1374]
+  else  begin if write_open[j] then a_close(write_file[j]);
+    if subtype(p)=close_node then write_open[j]:=false
+ at y
+  else  begin if write_open[j] then begin a_close(write_file[j]);
+                                          write_open[j]:=false; end;
+    if subtype(p)=close_node then do_nothing {already closed}
+ at z
+
+ at x [still 53.1374] Disallow certain \openout filenames, and log results.
       while not a_open_out(write_file[j]) do
         prompt_file_name("output file name",".tex");
       write_open[j]:=true;