[CTWILL] Save a few widow lines.

Move singular closing braces to the previous page.

git-svn-id: svn://tug.org/texlive/trunk@55659 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 30 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
index 655d4150094..54754e0fc7c 100644
--- a/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
+++ b/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
@@ -222,6 +222,12 @@ preceded by \.{@@(} instead of \.{@@<}.\par}
 @z
 
 @x
+@<Get a string@>= {
+@y
+@<Get a string@>= {@+
+@z
+
+@x
 @ @<Put section name...@>=
 @y
 @r @ @<Put section name...@>=
@@ -269,6 +275,16 @@ Thus, it
 @z
 
 @x
+static eight_bits
+copy_TeX(void)
+{
+@y
+static eight_bits
+copy_TeX(void)
+{@+
+@z
+
+@x
 @ The |copy_comment| function issues a warning if more braces are opened than
 @y
 @ The |copy_comment| function issues a warning if more braces are opened than
@@ -577,6 +593,12 @@ If the first identifier is the keyword `\&{operator}', we give up;
 @z
 
 @x
+{ token_pointer j;
+@y
+{@+ token_pointer j;
+@z
+
+@x
 @ The trickiest part of \.{CTWILL} is the procedure |make_ministring(l)|,
 @y
 @ The trickiest part of \.{CTWILL} is the procedure |make_ministring(l)|,
@@ -584,6 +606,14 @@ If the first identifier is the keyword `\&{operator}', we give up;
 @z
 
 @x
+  int l) /* 0, 1, or 2 */
+{
+@y
+  int l) /* 0, 1, or 2 */
+{@+
+@z
+
+@x
 @ @<Cases for |lpar|@>=
 @y
 @r @ @<Cases for |lpar|@>=