texlive[71491] Build/source/texk/web2c/hitexdir/hitex.w: [HiTeX] Fix

[commits+ascherer at tug.org]

Revision: 71491
          https://tug.org/svn/texlive?view=revision&revision=71491
Author:   ascherer
Date:     2024-06-12 10:40:11 +0200 (Wed, 12 Jun 2024)
Log Message:
-----------
[HiTeX] Fix section count from classic TeX.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/hitexdir/hitex.w

Modified: trunk/Build/source/texk/web2c/hitexdir/hitex.w
===================================================================
--- trunk/Build/source/texk/web2c/hitexdir/hitex.w	2024-06-12 08:40:09 UTC (rev 71490)
+++ trunk/Build/source/texk/web2c/hitexdir/hitex.w	2024-06-12 08:40:11 UTC (rev 71491)
@@ -1421,6 +1421,8 @@
 @<Forward declarations@>=
 static int s_no(const char *str);
 
+@ (Empty section to keep numbering intact.)
+
 @* On-line and off-line printing.
 Messages that are sent to a user's terminal and to the transcript-log file
 are produced by several `|print|' procedures. These procedures will
@@ -16398,7 +16400,18 @@
 @<Go through the preamble list, determining the column widths and changing
 the alignrecords to dummy unset boxes@>;
 if (x)
-{ @<Handle an alignment that depends on |hsize| or |vsize|@>@;
+{ /*Handle an alignment that depends on |hsize| or |vsize|*/
+ pointer r=get_node(align_node_size);
+ save_ptr=save_ptr-2;pack_begin_line=-mode_line;
+
+ type(r)=whatsit_node; subtype(r)=align_node;
+ align_preamble(r)=preamble;
+ align_list(r)=link(head);
+ align_extent(r)=new_xdimen(saved(1),saved_hfactor(1),saved_vfactor(1));
+ align_m(r)= saved(0);
+ align_v(r)= (mode!=-vmode);
+ link(head)=r; tail=r;
+ pack_begin_line=0;
   pop_alignment();
 }
 else
@@ -16410,19 +16423,7 @@
 @<Insert the \(c)current list into its environment@>;
 } @/
 @t\4@>@<Declare the procedure called |align_peek|@>@;
-@ @<Handle an alignment that depends on |hsize| or |vsize|@>=
- pointer r=get_node(align_node_size);
- save_ptr=save_ptr-2;pack_begin_line=-mode_line;
 
- type(r)=whatsit_node; subtype(r)=align_node;
- align_preamble(r)=preamble;
- align_list(r)=link(head);
- align_extent(r)=new_xdimen(saved(1),saved_hfactor(1),saved_vfactor(1));
- align_m(r)= saved(0);
- align_v(r)= (mode!=-vmode);
- link(head)=r; tail=r;
- pack_begin_line=0;
-
 @ It's time now to dismantle the preamble list and to compute the column
 widths. Let $w_{ij}$ be the maximum of the natural widths of all entries
 that span columns $i$ through $j$, inclusive. The alignrecord for column~$i$