diff options
author | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2023-04-15 00:49:49 +0000 |
---|---|---|
committer | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2023-04-15 00:49:49 +0000 |
commit | ff84182c46dc1fb10a6ce9f7add05b54bf6208e0 (patch) | |
tree | 44a56a7c7d1d1f204a1787cb24bb7b26ea39f2c9 /Build/source | |
parent | 481f017988608c9795368a691efb5352370fb4c6 (diff) |
ptex: update last_jchr in unpackage (H.Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@66853 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 539efeb1bf3..bebd9cd80df 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,8 @@ +2023-04-15 Hironori Kitagawa <h_kitagawa2001@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@t-lab.opal.ne.jp> * wcfname.test: diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 26e529b7a66..6f214d5fba5 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -5971,8 +5971,10 @@ while link(tail)<>null do {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 |