texlive[67092] Build/source/texk/web2c/cwebdir: [CWEB] Omit thin

[commits+ascherer at tug.org]

Revision: 67092
          http://tug.org/svn/texlive?view=revision&revision=67092
Author:   ascherer
Date:     2023-05-13 14:20:15 +0200 (Sat, 13 May 2023)
Log Message:
-----------
[CWEB] Omit thin space in inner TeX mode.

I really do not like the extra whitespace in @(output sections@>. At
least in ``inner TeX mode'' it will be omitted completely.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ChangeLog
    trunk/Build/source/texk/web2c/cwebdir/cweave.w

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-05-12 23:48:51 UTC (rev 67091)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-05-13 12:20:15 UTC (rev 67092)
@@ -1,3 +1,7 @@
+2023-05-13  Andreas Scherer  <https://ascherer.github.io>
+
+	* cweave.w: Omit thin space in inner TeX mode.
+
 2023-04-20  Andreas Scherer  <https://ascherer.github.io>
 
 	* cweave.w: Reduce whitespace in output section.

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-05-12 23:48:51 UTC (rev 67091)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-05-13 12:20:15 UTC (rev 67092)
@@ -2124,7 +2124,8 @@
  \.{\\X}$n$\.:translated section name\.{\\X}&maybe\cr
 \.{@@(@q)@>}\thinspace section name\thinspace\.{@@>}&|section_scrap|:
  \.{\\X}$n$\.{:\\.\{}section name with special characters
-      quoted\.{\\,\}\\X}&maybe\cr
+      quoted\.{\\,\}\\X}\footnote*{The \.{\\,} (thin space) is omitted
+      in ``inner \TeX\ mode.''}&maybe\cr
 \.{/*}\thinspace comment\thinspace\.{*/}&|insert|: |cancel|
       \.{\\C\{}translated comment\.\} |force|&no\cr
 \.{//}\thinspace comment&|insert|: |cancel|
@@ -4093,7 +4094,7 @@
 if (an_output) out_str("\\.{"@q}@>);
 @.\\.@>
 @<Output the text of the section name@>@;
-if (an_output) out_str(@q{@>"\\,}");
+if (an_output) cur_mode==inner?out_str(@q{@>"}"):out_str(@q{@>"\\,}");
 out_str("\\X");
 
 @ @<Output the text...@>=