summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/ptex-base.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch8
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