[uptex] improve \ifcat (#170)

texjporg · Jun 28, 2024 · ec9887c · ec9887c
1 parent 26505eb
commit ec9887c
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/source/texk/web2c/uptexdir/uptex-m.ch b/source/texk/web2c/uptexdir/uptex-m.ch
@@ -881,16 +881,28 @@ uptex_revision_code: print(upTeX_revision);
 
 @x
 if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
+  begin m:=cur_cmd; n:=cur_chr;
+  end
+else if (cur_cmd>active_char)or(cur_chr>255) then
 @y
 if (cur_cmd>=kanji)and(cur_cmd<=modifier) then
+  begin m:=cur_cmd; n:=cur_chr;
+  end
+else if (cur_cmd>active_char)or(cur_chr>=max_latin_val) then
 @z
 
 @x
 get_x_token_or_active_char;
 if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then
+  begin cur_cmd:=cur_cmd;
+  end {dummy}
+else if (cur_cmd>active_char)or(cur_chr>255) then
 @y
 get_x_token_or_active_char;
 if (cur_cmd>=kanji)and(cur_cmd<=modifier) then
+  begin cur_cmd:=cur_cmd;
+  end {dummy}
+else if (cur_cmd>active_char)or(cur_chr>=max_latin_val) then
 @z
 
 @x