uptex: Enable ^^^^xyzw format only whein isinternalUPTEX

git-svn-id: svn://tug.org/texlive/trunk/Build/source@73769 c570f23f-e606-0410-a88d-b1316a301751

texk/web2c/uptexdir/ChangeLog

@@ -1,3 +1,8 @@
+2025-02-08  TANAKA Takuji  <ttk@t-lab.opal.ne.jp>
+
+	* uptex-m.ch: Enable ^^^^xyzw format only when
+	internal encoding is upTeX.
+
 2025-02-07  TANAKA Takuji  <ttk@t-lab.opal.ne.jp>
 
 	* uptex-m.ch: Enable catcode mac_param(6) for

texk/web2c/uptexdir/uptex-m.ch

@@ -703,8 +703,8 @@ hangul_code(mid_kanji):
 @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 @@ if cat=other_kchar then decr(k); {now |k| points to first nonletter}
 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