(first-line-position): Don't insert page-top-space if first line is a title.

From Nicolas.

diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm
index 090ad06b7bf6d98eb4c4c25b871c5330412a75ce..f7853b01bbb0128cde2c7d31cc83047bd1e62d25 100644 (file)
--- a/scm/layout-page-layout.scm
+++ b/scm/layout-page-layout.scm
@@ -89,7 +89,10 @@
 
 (define (first-line-position line layout)
   "Position of the first line on page"
-  (max (+ (ly:output-def-lookup layout 'page-top-space)
+  (max (+ (if (ly:prob-property? line 'is-title)
+             ;; do not use page-top-space if first line is a title
+             0.0
+           (ly:output-def-lookup layout 'page-top-space))
          (interval-end (paper-system-staff-extents line)))
        (interval-end (paper-system-extent line Y))))