From 66600b47b2366a88b0d63a85ddb26df676aeeec7 Mon Sep 17 00:00:00 2001 From: Joe Neeman Date: Tue, 16 Jan 2007 18:38:51 +0200 Subject: [PATCH] silence spurious warning when there is one system on a page --- scm/layout-page-layout.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5