texlive[66853] Build/source/texk/web2c/ptexdir: ptex: update

[commits+takuji at tug.org]

Revision: 66853
          http://tug.org/svn/texlive?view=revision&revision=66853
Author:   takuji
Date:     2023-04-15 02:49:49 +0200 (Sat, 15 Apr 2023)
Log Message:
-----------
ptex: update last_jchr in unpackage (H.Kitagawa)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2023-04-14 23:49:20 UTC (rev 66852)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2023-04-15 00:49:49 UTC (rev 66853)
@@ -1,3 +1,8 @@
+2023-04-15  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptex-base.ch: Update last_jchr in unpackage.
+	https://github.com/texjporg/tex-jp-build/issues/156
+
 2023-03-29  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* wcfname.test:

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2023-04-14 23:49:20 UTC (rev 66852)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2023-04-15 00:49:49 UTC (rev 66853)
@@ -5971,8 +5971,10 @@
   {reset |inhibit_glue_flag| when a node other than |disp_node| is found;
    |disp_node| is always inserted according to tex-jp-build issue 40}
   begin p:=tail; tail:=link(tail);
-  if is_char_node(tail) then
-    inhibit_glue_flag:=false
+  if is_char_node(tail) then begin
+    inhibit_glue_flag:=false;
+    if font_dir[font(tail)]<>dir_default then last_jchr:=link(tail);
+    end
   else
     case type(tail) of
     glue_node : begin