diff options
| author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-12-24 11:15:36 +0000 |
|---|---|---|
| committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-12-24 11:15:36 +0000 |
| commit | 998fa3960ff2e90f2c458b43fc40cefd8bbcdac1 (patch) | |
| tree | b8994b00a92534bc5eab21af1ded45583054e8fc /Build | |
| parent | 9bb1f9aea809cf23a8e78bba3c554b91caa806b8 (diff) | |
eptexdir/fam256.ch: \delcode defaults to -1, not -4097 (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@46129 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/source/texk/web2c/eptexdir/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/web2c/eptexdir/fam256.ch | 16 |
2 files changed, 16 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog index 96d03e32287..ee64ce435ec 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog +++ b/Build/source/texk/web2c/eptexdir/ChangeLog @@ -1,3 +1,8 @@ +2017-12-22 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * fam256.ch: \delcode defaults to -1, not -4097, to be compatible + with TeX82. + 2017-12-15 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * pdfutils.ch: Fix a error message "! File ended while ..." diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch index 6f06a39d9f2..75bf6d9aaae 100644 --- a/Build/source/texk/web2c/eptexdir/fam256.ch +++ b/Build/source/texk/web2c/eptexdir/fam256.ch @@ -328,7 +328,10 @@ else if m=del_code_base then begin ("I changed this one to zero."); error; scanned_result(0)(int_val); end - else scanned_result(cur_val1*@"1000+cur_val)(int_val); + else if cur_val1<0 then + scanned_result(cur_val)(int_val) + else + scanned_result(cur_val1*@"1000+cur_val)(int_val); end else if m=(del_code_base+128) then begin { Aleph seems \.{\\odelcode} always returns $-1$.} @@ -1280,10 +1283,13 @@ def_code: begin define(p-128,data,hi(cur_val)); end else if cur_val1=del_code_base then begin - cur_val1:=cur_val div @"1000; - cur_val1:=(cur_val1 div @"1000)*@"10000 + cur_val1 mod @"1000; - cur_val:=cur_val mod @"1000; - del_word_define(p,cur_val1,cur_val); + if cur_val>=0 then begin + cur_val1:=cur_val div @"1000; + cur_val1:=(cur_val1 div @"1000)*@"10000 + cur_val1 mod @"1000; + cur_val:=cur_val mod @"1000; + del_word_define(p,cur_val1,cur_val); end + else + del_word_define(p, -1, cur_val); end else define(p,data,cur_val); end; |