summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2024-06-12 08:40:11 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2024-06-12 08:40:11 +0000
commita497d296349a83b2fb50513d539c6c6dcd1ed0ee (patch)
treeeefa01b501c48444820b2c994ddebdfbba4a8bb6 /Build/source/texk/web2c
parent8a93838c33f0fb8ebdbe33e111e78c78f8aa1f11 (diff)
[HiTeX] Fix section count from classic TeX.
git-svn-id: svn://tug.org/texlive/trunk@71491 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r--Build/source/texk/web2c/hitexdir/hitex.w27
1 files changed, 14 insertions, 13 deletions
diff --git a/Build/source/texk/web2c/hitexdir/hitex.w b/Build/source/texk/web2c/hitexdir/hitex.w
index 20e75e5b69a..b419f9fb8fa 100644
--- a/Build/source/texk/web2c/hitexdir/hitex.w
+++ b/Build/source/texk/web2c/hitexdir/hitex.w
@@ -1421,6 +1421,8 @@ declaration.
@<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,19 +16400,7 @@ if (nest[nest_ptr-1].mode_field==mmode) o=display_indent;
@<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|@>@;
- pop_alignment();
-}
-else
-{ @<Package the preamble list, to determine the actual tabskip glue amounts,
- and let |p| point to this prototype box@>;
- @<Set the glue in all the unset boxes of the current list@>;
- flush_node_list(p);pop_alignment();
-}
-@<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|@>=
+{ /*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;
@@ -16422,6 +16412,17 @@ else
align_v(r)= (mode!=-vmode);
link(head)=r; tail=r;
pack_begin_line=0;
+ pop_alignment();
+}
+else
+{ @<Package the preamble list, to determine the actual tabskip glue amounts,
+ and let |p| point to this prototype box@>;
+ @<Set the glue in all the unset boxes of the current list@>;
+ flush_node_list(p);pop_alignment();
+}
+@<Insert the \(c)current list into its environment@>;
+} @/
+@t\4@>@<Declare the procedure called |align_peek|@>@;
@ 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