summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/ctangle.w
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-02-22 00:01:30 +0000
committerKarl Berry <karl@freefriends.org>2017-02-22 00:01:30 +0000
commit1553d537c63d2eef1b6fb7e7fcfc14fbb0d2e6f4 (patch)
tree8f92fc9628cbe401229268b1ca2f567590748899 /Build/source/texk/web2c/cwebdir/ctangle.w
parent216791a94d49b9c2142dcb14d7d7ff639b9e2e5b (diff)
cweb 3.64b
git-svn-id: svn://tug.org/texlive/trunk@43294 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctangle.w')
-rw-r--r--Build/source/texk/web2c/cwebdir/ctangle.w11
1 files changed, 7 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctangle.w b/Build/source/texk/web2c/cwebdir/ctangle.w
index 2b10a243a5b..130800210e5 100644
--- a/Build/source/texk/web2c/cwebdir/ctangle.w
+++ b/Build/source/texk/web2c/cwebdir/ctangle.w
@@ -1224,11 +1224,14 @@ file name.
@<Insert the line...@>=
store_two_bytes(0150000);
-if (changing) id_first=change_file_name;
-else id_first=cur_file_name;
+if (changing && include_depth==change_depth) { /* correction made Feb 2017 */
+ id_first=change_file_name;
+ store_two_bytes((sixteen_bits)change_line);
+}@+else {
+ id_first=cur_file_name;
+ store_two_bytes((sixteen_bits)cur_line);
+}
id_loc=id_first+strlen(id_first);
-if (changing) store_two_bytes((sixteen_bits)change_line);
-else store_two_bytes((sixteen_bits)cur_line);
{int a=id_lookup(id_first,id_loc,0)-name_dir; app_repl((a / 0400)+0200);
app_repl(a % 0400);}