texlive[61907] Build/source/texk/web2c/eptexdir: e[u]ptex: \showmode

[commits+hironobu at tug.org]

Revision: 61907
          http://tug.org/svn/texlive?view=revision&revision=61907
Author:   hironobu
Date:     2022-02-06 00:59:03 +0100 (Sun, 06 Feb 2022)
Log Message:
-----------
e[u]ptex: \showmode follows \showstream

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	2022-02-05 23:54:51 UTC (rev 61906)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2022-02-05 23:59:03 UTC (rev 61907)
@@ -2,6 +2,10 @@
 
 	* eptex.defines: Add isinternalUPTEX and isterminalUTF8.
 
+2022-01-26  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* eptex.ech: Adapt \showmode to follow \showstream.
+
 2022-01-22  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* eptex.ech, etex.ch0, etex.ch1, pdfutils.ch:

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2022-02-05 23:54:51 UTC (rev 61906)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2022-02-05 23:59:03 UTC (rev 61907)
@@ -708,6 +708,16 @@
   end;
 @z
 
+ at x e-pTeX: pTeX has \showmode, follow showstream.ch r61589
+@<Show the current japanese processing mode@>=
+begin print_nl("> ");
+ at y
+@<Show the current japanese processing mode@>=
+begin
+  @<Adjust |selector| based on |show_stream|@>
+  print_nl("> ");
+ at z
+
 @x
 procedure print_direction(@!d:integer); {print the direction represented by d}
 @y