summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/source/texk/web2c/alephdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/alephdir/com16bit.ch11
2 files changed, 14 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/alephdir/ChangeLog b/Build/source/texk/web2c/alephdir/ChangeLog
index 0aed9ac6213..f3814547fc1 100644
--- a/Build/source/texk/web2c/alephdir/ChangeLog
+++ b/Build/source/texk/web2c/alephdir/ChangeLog
@@ -1,3 +1,7 @@
+2019-12-18 Akira Kakuto <kakuto@w32tex.org>
+
+ * com16bit.ch: Sync with tex.ch for out_what [1374].
+
2019-08-10 Akira Kakuto <kakuto@w32tex.org>
* com16bit.ch: Sync with tex.ch for texmf_yesno('log_openout').
diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch
index 76f9f5261da..ac970f1b782 100644
--- a/Build/source/texk/web2c/alephdir/com16bit.ch
+++ b/Build/source/texk/web2c/alephdir/com16bit.ch
@@ -2695,7 +2695,16 @@ var j:small_number; {write stream number}
@!old_setting:0..max_selector;
@z
-@x [53.1374] Disallow certain \openout filenames, and log results.
+@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
+@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}
+@z
+
+@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;