summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/fam256.ch
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2017-12-24 11:15:36 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2017-12-24 11:15:36 +0000
commit998fa3960ff2e90f2c458b43fc40cefd8bbcdac1 (patch)
treeb8994b00a92534bc5eab21af1ded45583054e8fc /Build/source/texk/web2c/eptexdir/fam256.ch
parent9bb1f9aea809cf23a8e78bba3c554b91caa806b8 (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/source/texk/web2c/eptexdir/fam256.ch')
-rw-r--r--Build/source/texk/web2c/eptexdir/fam256.ch16
1 files changed, 11 insertions, 5 deletions
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;