From: Joe Neeman <joeneeman@gmail.com>
Date: Tue, 16 Jan 2007 16:38:51 +0000 (+0200)
Subject: silence spurious warning when there is one system on a page
X-Git-Tag: release/2.11.12-1~11^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=66600b47b2366a88b0d63a85ddb26df676aeeec7;p=lilypond.git

silence spurious warning when there is one system on a page
---

diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm
index d2d06b0331..264d380548 100644
--- a/scm/layout-page-layout.scm
+++ b/scm/layout-page-layout.scm
@@ -214,7 +214,8 @@
 			   (space-to-fill (page-maximum-space-to-fill
 					    page lines paper))
 			   (spacing (space-systems space-to-fill lines ragged paper #f)))
-		      (if (or (not (car spacing)) (inf? (car spacing)))
+		      (if (and (> (length lines) 1)
+			       (or (not (car spacing)) (inf? (car spacing))))
 			  (begin
 			    (ly:warning (_ "Can't fit systems on page -- ignoring between-system-padding"))
 			    (cdr (space-systems space-to-fill lines ragged paper #t)))