]> git.donarmstrong.com Git - lilypond.git/commitdiff
Revert "fourth patch from Joe: revert revert fix line ideal distance to favour mo"
authorValentin Villenave <valentin@villenave.net>
Mon, 14 Jan 2008 00:39:04 +0000 (01:39 +0100)
committerValentin Villenave <valentin@villenave.net>
Mon, 14 Jan 2008 00:39:04 +0000 (01:39 +0100)
This reverts commit 9800152af3a902baa4b2fd11032355b2aee08e49.

Signed-off-by: Valentin Villenave <v.villenave@gmail.com>
scm/layout-page-layout.scm

index 1686d9613a11d7ac097e484f797f462282feb372..38da734bd38a5b6add540937a7ab56680b0d014b 100644 (file)
   "Ideal distance between `line' reference position and `next-line'
  reference position. If next-line is #f, return #f."
   (and next-line
-       (max 0
-           (+ (- (+ (interval-end (paper-system-staff-extents next-line))
-                    (if ignore-padding 0 (line-next-padding line next-line layout)))
-                 (interval-start (paper-system-staff-extents line)))
-              (line-next-space line next-line layout)))))
+       (max (+ (max 0 (- (+ (interval-end (paper-system-staff-extents next-line))
+                           (if ignore-padding 0 (line-next-padding line next-line layout)))
+                        (interval-start (paper-system-staff-extents line))))
+              (line-next-space line next-line layout))
+           (line-minimum-distance line next-line layout ignore-padding))))
 
 (define (first-line-position line layout)
   "Position of the first line on page"