diff options
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index a771451154e..d6e205cecb3 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -6060,7 +6060,7 @@ begin KANJI(cx):=0; restart: @<Get the next non-blank non-relax...@>; reswitch:case cur_cmd of letter,other_char,char_given: - if (is_char_ascii(cur_chr) or (cur_chr=256)) then begin + if is_char_ascii(cur_chr) then begin c:=ho(math_code(cur_chr)); if c=@'100000 then begin @<Treat |cur_chr| as an active character@>; @@ -6111,16 +6111,14 @@ mmode+char_num: begin scan_char_num; cur_chr:=cur_val; @y mmode+letter,mmode+other_char,mmode+char_given: if is_char_ascii(cur_chr) then - if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) - else set_math_char(cur_chr) + set_math_char(ho(math_code(cur_chr))) else set_math_kchar(cur_chr); mmode+kanji,mmode+kana,mmode+other_kchar: begin cx:=cur_chr; set_math_kchar(KANJI(cx)); end; mmode+char_num: begin scan_char_num; cur_chr:=cur_val; if is_char_ascii(cur_chr) then - if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) - else set_math_char(cur_chr) + set_math_char(ho(math_code(cur_chr))) else set_math_kchar(cur_chr); end; @z |