From: Werner Lemberg <wl@gnu.org>
Date: Thu, 30 Nov 2006 21:08:49 +0000 (+0100)
Subject: (first-line-position): Don't insert page-top-space if first line is a title.
X-Git-Tag: release/2.11.1-1~25^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=41b08c2bb72dada6f891724bb27c743eb708a465;p=lilypond.git

(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 090ad06b7b..f7853b01bb 100644
--- 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))))