From 998fa3960ff2e90f2c458b43fc40cefd8bbcdac1 Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Sun, 24 Dec 2017 11:15:36 +0000 Subject: 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 --- Build/source/texk/web2c/eptexdir/ChangeLog | 5 +++++ 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 + + * fam256.ch: \delcode defaults to -1, not -4097, to be compatible + with TeX82. + 2017-12-15 Hironori Kitagawa * 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; -- cgit v1.2.3