From ad87500162cb1ab9830f7065cbe456e948a8442c Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Mon, 12 Dec 2022 22:51:48 +0900 Subject: [PATCH] sync with tl r65248 --- source/texk/web2c/ptexdir/ptex-base.ch | 5 ++++- source/texk/web2c/uptexdir/uptex-m.ch | 6 ++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/source/texk/web2c/ptexdir/ptex-base.ch b/source/texk/web2c/ptexdir/ptex-base.ch index 567cef523..175c50283 100644 --- a/source/texk/web2c/ptexdir/ptex-base.ch +++ b/source/texk/web2c/ptexdir/ptex-base.ch @@ -1327,7 +1327,10 @@ eqtb[auto_xspacing_code]:=eqtb[cat_code_base]; for k:=0 to 255 do begin cat_code(k):=other_char; kcat_code(k):=other_kchar; math_code(k):=hi(k); sf_code(k):=1000; - auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; + auto_xsp_code(k):=0; + end; +for k:=0 to 1023 do + begin inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; kinsoku_code(k):=0; kinsoku_type(k):=0; end; @z diff --git a/source/texk/web2c/uptexdir/uptex-m.ch b/source/texk/web2c/uptexdir/uptex-m.ch index ad570dd21..36db186a5 100644 --- a/source/texk/web2c/uptexdir/uptex-m.ch +++ b/source/texk/web2c/uptexdir/uptex-m.ch @@ -231,8 +231,7 @@ eqtb[auto_xspacing_code]:=eqtb[cat_code_base]; for k:=0 to 255 do begin cat_code(k):=other_char; kcat_code(k):=other_kchar; math_code(k):=hi(k); sf_code(k):=1000; - auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; - kinsoku_code(k):=0; kinsoku_type(k):=0; + auto_xsp_code(k):=0; end; @y eqtb[auto_xspacing_code]:=eqtb[cat_code_base]; @@ -240,8 +239,7 @@ eqtb[enable_cjk_token_code]:=eqtb[cat_code_base]; for k:=0 to 255 do begin cat_code(k):=other_char; math_code(k):=hi(k); sf_code(k):=1000; - auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; - kinsoku_code(k):=0; kinsoku_type(k):=0; + auto_xsp_code(k):=0; end; for k:=0 to 511 do begin kcat_code(k):=other_kchar;