diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2021-02-24 13:49:18 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2021-02-24 13:49:18 +0000 |
commit | 8bafa5e975dfea96d4a5ee575206e38c7199399b (patch) | |
tree | 39ef6539cba5b724bd378bceee40d82263571e81 /Build/source/texk/web2c/cwebdir/ctangle.w | |
parent | d243dab568921752f06781c86981d1d585274c37 (diff) |
[CWEB] Fine print for single '@' characters in TeX text.
git-svn-id: svn://tug.org/texlive/trunk@57870 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctangle.w')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctangle.w | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctangle.w b/Build/source/texk/web2c/cwebdir/ctangle.w index 590e90ef1da..0c5bd413282 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.w +++ b/Build/source/texk/web2c/cwebdir/ctangle.w @@ -1236,7 +1236,7 @@ case identifier: a=id_lookup(id_first,id_loc,0)-name_dir; app_repl(a % 0400); break; case section_name: if (t!=section_name) goto done; else { - @<Was an `@@' missed here?@>@; + @<Was an `\.{@@}' missed here?@>@; a=cur_section_name-name_dir; app_repl((a / 0400)+0250); app_repl(a % 0400); @@ -1263,7 +1263,7 @@ case definition: case format_code: case begin_C: if (t!=section_name) goto done; } case new_section: goto done; -@ @<Was an `@@'...@>= { +@ @<Was an `\.{@@}'...@>= { char *try_loc=loc; while (*try_loc==' ' && try_loc<limit) try_loc++; if (*try_loc=='+' && try_loc<limit) try_loc++; |