diff options
| -rw-r--r-- | Build/source/texk/web2c/eptexdir/ChangeLog | 4 | ||||
| -rw-r--r-- | Build/source/texk/web2c/eptexdir/fam256.ch | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog index a1a654008dc..6101754f5b5 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog +++ b/Build/source/texk/web2c/eptexdir/ChangeLog @@ -1,3 +1,7 @@ +2015-07-28 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * fam256.ch: Fix delcode initialization. + 2015-07-10 Peter Breitenlohner <peb@mppmu.mpg.de> * eptriptest (removed): Renamed ... diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch index 2acae50fde0..f0e3c34d35b 100644 --- a/Build/source/texk/web2c/eptexdir/fam256.ch +++ b/Build/source/texk/web2c/eptexdir/fam256.ch @@ -134,8 +134,12 @@ else begin print_esc("scriptscriptfont"); @z %----------------------------------------------- @x +for k:=0 to 255 do del_code(k):=-1; del_code("."):=0; {this null delimiter is used in error recovery} @y +for k:=0 to 255 do + begin del_code(k):=-1; setintone(eqtb[del_code_base+k],-1); + end; del_code("."):=0; setintone(eqtb[del_code_base+"."],0); {this null delimiter is used in error recovery} @z |