texlive[51694] Build/source/texk/web2c/eptexdir: eptex.ech: more
commits+hironobu at tug.org
commits+hironobu at tug.org
Sun Jul 21 08:43:32 CEST 2019
Revision: 51694
http://tug.org/svn/texlive?view=revision&revision=51694
Author: hironobu
Date: 2019-07-21 08:43:32 +0200 (Sun, 21 Jul 2019)
Log Message:
-----------
eptex.ech: more compatible with original e-TeX
Modified Paths:
--------------
trunk/Build/source/texk/web2c/eptexdir/ChangeLog
trunk/Build/source/texk/web2c/eptexdir/eptex.ech
Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog 2019-07-20 23:53:09 UTC (rev 51693)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog 2019-07-21 06:43:32 UTC (rev 51694)
@@ -1,3 +1,9 @@
+2019-07-21 Hironobu Yamashita <h.y.acetaminophen at gmail.com>
+
+ * eptex.ech: More compatible with original e-TeX, because
+ '\fontchar??' and '\iffontchar' for Latin font is effective
+ only for 0--255.
+
2019-07-09 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* pdfutils.ch: Add primitive \ifincsname.
Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech 2019-07-20 23:53:09 UTC (rev 51693)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech 2019-07-21 06:43:32 UTC (rev 51694)
@@ -553,7 +553,7 @@
end
else cur_val:=0;
end
- else begin scan_char_num;
+ else begin scan_ascii_num;
if (font_bc[q]<=cur_val)and(font_ec[q]>=cur_val) then
begin i:=orig_char_info(q)(qi(cur_val));
case m of
@@ -646,7 +646,7 @@
end;
@y
if_font_char_code:begin scan_font_ident; n:=cur_val;
- if font_dir[n]<>dir_default then
+ if font_dir[n]<>dir_default then {Japanese font}
begin scan_int;
if cur_val>=0 then b:=is_char_kanji(cur_val)
{ In u\pTeX, $\hbox{|is_char_kanji|} = \lambda x\mathpunct{.} x\ge 0$ }
@@ -655,7 +655,7 @@
b:=(font_bc[n]<=cur_val)and(font_ec[n]>=cur_val)
end
end
- else begin scan_char_num;
+ else begin scan_ascii_num;
if (font_bc[n]<=cur_val)and(font_ec[n]>=cur_val) then @/
b:=char_exists(orig_char_info(n)(qi(cur_val)))
else b:=false;
More information about the tex-live-commits
mailing list