From eaf09df22da53594a5d40cf50cd1e38db9a54a44 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 18 Sep 2004 10:01:37 +0000
Subject: [PATCH] *** empty log message ***

---
 Documentation/user/changing-defaults.itely |  3 +++
 ly/book-paper-defaults.ly                  |  6 +++++-
 scm/page-layout.scm                        | 12 ++++++------
 3 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index 549447a735..0114cec0e5 100644
--- a/Documentation/user/changing-defaults.itely
+++ b/Documentation/user/changing-defaults.itely
@@ -2234,6 +2234,9 @@ The default layout responds to the following settings in the
 @item raggedlastbottom
  If set to true, systems will not be spread to fill the last page.
 
+ This is the default. Only pieces that amply fill two pages or more
+should have this set to true.
+
 @item betweensystemspace
   This dimensions determines the distance between systems. It is the
 ideal distance between the center of the bottom staff of one system,
diff --git a/ly/book-paper-defaults.ly b/ly/book-paper-defaults.ly
index ffad72304f..2cb3fc3d05 100644
--- a/ly/book-paper-defaults.ly
+++ b/ly/book-paper-defaults.ly
@@ -54,7 +54,11 @@
 
 
     raggedbottom = ##f
-    raggedlastbottom= ##f
+
+    %
+    % looks best for shorter scores.
+    %
+    raggedlastbottom= ##t
 
     papersize = "a4"
 
diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index cff4bd4ac1..49568d251d 100644
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -330,14 +330,14 @@ is what have collected so far, and has ascending page numbers."
 		 (entry (list idx (1+ idx) distance)))
 	      entry)))
 	 (rods (map calc-rod (iota (1- no-systems))))
-	 (page-very-empty? (> space-left (/ page-height 1.5)))
+
+	 ;; we don't set ragged based on amount space left.
+	 ;; raggedbottomlast = ##T is much more predictable
 	 (result (ly:solve-spring-rod-problem
 		  springs rods space
-		  (or page-very-empty? ragged?)))
-	 (force (car (if page-very-empty?
-			 (ly:solve-spring-rod-problem
-			  springs rods space ragged?)
-			 result)))
+		  ragged?))
+
+	 (force (car result))
 	 (positions
 	  (map (lambda (y)
 		       (+ y topskip)) 
-- 
2.39.5