diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-16 14:52:40 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-07-16 14:52:40 +0000 |
commit | cf821c33e384e8d208a1a158942a7e70336a8c72 (patch) | |
tree | 18d492ccebd23cbe11913afa894287407a52c029 /Build/source/texk/web2c/cwebdir/cweave.w | |
parent | 7d872ada040cbe958cff98ad58cbfd5720166cb6 (diff) |
[CWEB] Fix last commit.
Ouch, my bad! 'break' jumps out of the 'for' loop, not out of the
'switch' group. :o)
git-svn-id: svn://tug.org/texlive/trunk@67649 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/cweave.w')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/cweave.w | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/cwebdir/cweave.w b/Build/source/texk/web2c/cwebdir/cweave.w index c0f14a20d3e..3f92f12c82f 100644 --- a/Build/source/texk/web2c/cwebdir/cweave.w +++ b/Build/source/texk/web2c/cwebdir/cweave.w @@ -4772,10 +4772,10 @@ while (sort_ptr>scrap_info) { switch (cur_name->ilk) {@+char *j;@+@t}\6{\4@> case normal: case func_template: if (is_tiny(cur_name)) out_str("\\|"); - else { + else {@+boolean all_caps=true;@+@t}\6{@> for (j=cur_name->byte_start;j<(cur_name+1)->byte_start;j++) - if (xislower(*j)) { out_str("\\\\");@+ break; } - out_str("\\."); /* \.{UPPERCASE} */ + if (xislower(*j)) all_caps=false; + out_str(all_caps ? "\\." : "\\\\"); } break; @.\\|@> |