texlive[71230] Build/source/texk/web2c/uptexdir: uptex: Fix unmatched

[commits+takuji at tug.org]

Revision: 71230
          https://tug.org/svn/texlive?view=revision&revision=71230
Author:   takuji
Date:     2024-05-11 10:27:12 +0200 (Sat, 11 May 2024)
Log Message:
-----------
uptex: Fix unmatched begin-end grouping by Morimi-san

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/uptexdir/ChangeLog
    trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch

Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2024-05-10 23:41:57 UTC (rev 71229)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2024-05-11 08:27:12 UTC (rev 71230)
@@ -1,3 +1,9 @@
+2024-05-11  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* uptex-m.ch: Fix unmatched begin-end grouping
+	from Yukimasa Morimi san:
+	https://github.com/texjporg/tex-jp-build/issues/46
+
 2024-05-01  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* uptex-m.ch: Revert some patches.

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2024-05-10 23:41:57 UTC (rev 71229)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2024-05-11 08:27:12 UTC (rev 71230)
@@ -1316,9 +1316,8 @@
         ins_kp:=false;
         goto again_2
         end
-      end
       end;
-    begin if not disp_called then
+    if not disp_called then
       begin prev_node:=tail; tail_append(get_node(small_node_size));
       type(tail):=disp_node; disp_dimen(tail):=0; disp_called:=true
       end;