From 26505eb4aa3d5e43037a98ae2120afc91232c6f9 Mon Sep 17 00:00:00 2001 From: TANAKA Takuji Date: Fri, 28 Jun 2024 22:19:32 +0900 Subject: [PATCH] [euptex] \Uchar, \Ucharcat with check_echar_range() (#170) --- source/texk/web2c/euptexdir/pdfutils.ch | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/texk/web2c/euptexdir/pdfutils.ch b/source/texk/web2c/euptexdir/pdfutils.ch index f62a48be1..5b031e835 100644 --- a/source/texk/web2c/euptexdir/pdfutils.ch +++ b/source/texk/web2c/euptexdir/pdfutils.ch @@ -1155,7 +1155,7 @@ pdf_file_dump_code: uniform_deviate_code: scan_int; normal_deviate_code: do_nothing; Uchar_convert_code: begin scan_char_num; - if not is_char_ascii(cur_val) then + if not check_echar_range(cur_val) then if kcat_code(kcatcodekey(cur_val))=not_cjk then cat:=other_kchar; end; Ucharcat_convert_code: @@ -1171,12 +1171,12 @@ Ucharcat_convert_code: help1("I'm going to use 12 instead of that illegal code value.");@/ error; cat:=12; end else cat:=cur_val; - end else if i<=@"FF then + end else if check_echar_range(i) then begin if (illegal_Ucharcat_ascii_catcode(cur_val)) and (illegal_Ucharcat_wchar_catcode(cur_val)) then begin print_err("Invalid code ("); print_int(cur_val); @.Invalid code@> - print("), should be in the ranges 1..4, 6..8, 10..13, 16..19"); + print("), should be in the ranges 1..4, 6..8, 10..13, 16..20"); help1("I'm going to use 12 instead of that illegal code value.");@/ error; cat:=12; end else cat:=cur_val; @@ -1184,7 +1184,7 @@ Ucharcat_convert_code: begin if illegal_Ucharcat_wchar_catcode(cur_val) then begin print_err("Invalid code ("); print_int(cur_val); @.Invalid code@> - print("), should be in the ranges 16..19"); + print("), should be in the ranges 16..20"); help1("I'm going to use 18 instead of that illegal code value.");@/ error; cat:=other_kchar; end else cat:=cur_val;