texlive[72042] Build/source/texk/web2c: [WEB] Restore section

[commits+ascherer at tug.org]

Revision: 72042
          https://tug.org/svn/texlive?view=revision&revision=72042
Author:   ascherer
Date:     2024-08-16 16:29:54 +0200 (Fri, 16 Aug 2024)
Log Message:
-----------
[WEB] Restore section numbering as far as possible.

The 'recent' (Jan 2022) changes in 'showstream.ch' escaped my attention
for two and a half years!

This commit moves the new section '@<Adjust |selector|...@>' to the end
of the '[54] System-dependent changes' in order to restore the section
numbering up to and including 'pdftex{U+00A7}1866' and 'xetex{U+00A7}1677' (and also
'euptex{U+00A7}NNNN') in the variants changed for TeX Live.

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

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2024-08-15 23:42:00 UTC (rev 72041)
+++ trunk/Build/source/texk/web2c/ChangeLog	2024-08-16 14:29:54 UTC (rev 72042)
@@ -1,3 +1,7 @@
+2024-08-16  Andreas Scherer  <https://ascherer.github.io>
+
+	* showstream.ch: Restore section numbering as far as possible.
+
 2024-08-12  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctangleboot.cin: CWEB 4.12 release.

Modified: trunk/Build/source/texk/web2c/showstream.ch
===================================================================
--- trunk/Build/source/texk/web2c/showstream.ch	2024-08-15 23:42:00 UTC (rev 72041)
+++ trunk/Build/source/texk/web2c/showstream.ch	2024-08-16 14:29:54 UTC (rev 72042)
@@ -132,10 +132,6 @@
 @ @<Show the current meaning of a token...@>=
 begin get_token;
 @y
-@ @<Adjust |selector| based on |show_stream|@>=
-if (show_stream>=0) and (show_stream<no_print) and write_open[show_stream] then
-  selector:=show_stream;
-
 @ @<Show the current meaning of a token...@>=
 begin get_token;
   @<Adjust |selector| based on |show_stream|@>
@@ -173,3 +169,13 @@
 show_ifs: begin @<Adjust |selector| based on |show_stream|@>
   begin_diagnostic; print_nl(""); print_ln;
 @z
+
+ at x
+@* \[55] Index.
+ at y
+@ @<Adjust |selector| based on |show_stream|@>=
+if (show_stream>=0) and (show_stream<no_print) and write_open[show_stream] then
+  selector:=show_stream;
+
+@* \[55] Index.
+ at z