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

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;