texlive[73769] Build/source/texk/web2c/uptexdir: uptex: Enable

[commits+takuji at tug.org]

Revision: 73769
          https://tug.org/svn/texlive?view=revision&revision=73769
Author:   takuji
Date:     2025-02-08 12:29:24 +0100 (Sat, 08 Feb 2025)
Log Message:
-----------
uptex: Enable ^^^^xyzw format only whein isinternalUPTEX

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	2025-02-08 09:45:24 UTC (rev 73768)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2025-02-08 11:29:24 UTC (rev 73769)
@@ -1,3 +1,8 @@
+2025-02-08  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* uptex-m.ch: Enable ^^^^xyzw format only when
+	internal encoding is upTeX.
+
 2025-02-07  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* uptex-m.ch: Enable catcode mac_param(6) for

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2025-02-08 09:45:24 UTC (rev 73768)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2025-02-08 11:29:24 UTC (rev 73769)
@@ -703,8 +703,8 @@
 @x
   begin c:=buffer[loc+1]; @+if c<@'200 then {yes we have an expanded char}
 @y
-  begin if (cur_chr=buffer[loc+1]) and (cur_chr=buffer[loc+2]) and
-           ((loc+6)<=limit) then
+  begin if (isinternalUPTEX) and ((loc+6)<=limit) and
+           (cur_chr=buffer[loc+1]) and (cur_chr=buffer[loc+2]) then
      begin c:=buffer[loc+3]; cc:=buffer[loc+4];
        cd:=buffer[loc+5]; ce:=buffer[loc+6];
        if is_hex(c) and is_hex(cc) and is_hex(cd) and is_hex(ce) then
@@ -798,10 +798,9 @@
 until not((cat=letter)or(cat=kanji)or(cat=kana)or(cat=hangul)or(cat=modifier))or(k>limit);
 {@@<If an expanded...@@>;}
 if not((cat=letter)or(cat=kanji)or(cat=kana)or(cat=hangul)or(cat=modifier)) then begin
-  if (cat=mac_param)and(buffer2[k-1])and(multilenbuffchar(cur_chr)>1) then k:=k-multilenbuffchar(cur_chr)
+  if (buffer2[k-1]) then k:=k-multilenbuffchar(cur_chr)
   else decr(k);
-  end;
-if cat=other_kchar then k:=k-multilenbuffchar(cur_chr)+1; {now |k| points to first nonletter}
+  end; {now |k| points to first nonletter}
 @z
 
 @x