*** empty log message ***

diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index 549447a735d423e00036d2ca3454ffbfd10ef71e..0114cec0e5eed7d8c241e84c0f1374889dae4abc 100644 (file)
--- 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 ffad72304f5dcf10c72b989d2d594621ff022be6..2cb3fc3d0542a551962f4e50b6b984953e9d3a2f 100644 (file)
--- 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 cff4bd4ac11da65ae6b751de4636fdd1f3642e3f..49568d251d0ddeb3ae5e6cd05e82bc8c20284eae 100644 (file)
--- 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))