From: Thomas Morley <thomasmorley65@gmail.com>
Date: Tue, 14 Jun 2016 19:11:16 +0000 (+0200)
Subject: Issue 4895 Give SystemStartSquare a default of 5.0 for collapse-height
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=d6bb35d94789444016eac15987b877fc59b526cf;p=lilypond.git

Issue 4895 Give SystemStartSquare a default of 5.0 for collapse-height

This ensures same behaviour of SystemStartSquare while using
RemoveEmptyStaves as SystemStartBar, SystemStartBrace and
SystemStartBracket. The latter ones already have this default.
---

diff --git a/input/regression/system-start-nesting.ly b/input/regression/system-start-nesting.ly
index d169a8cae2..b8bbfd62a5 100644
--- a/input/regression/system-start-nesting.ly
+++ b/input/regression/system-start-nesting.ly
@@ -11,7 +11,7 @@
 \new StaffGroup
 \relative <<
   \set StaffGroup.systemStartDelimiterHierarchy
-    = #'(SystemStartSquare (SystemStartBracket a (SystemStartSquare b)) d)
+    = #'(SystemStartSquare (SystemStartBracket a (SystemStartSquare b c)) d)
   \new Staff { c'1 }
   \new Staff { c1 }
   \new Staff { c1 }
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index c874eae7b9..f525edd69a 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2328,6 +2328,7 @@
 
     (SystemStartSquare
      . (
+        (collapse-height . 5.0)
         (direction . ,LEFT)
         (stencil . ,ly:system-start-delimiter::print)
         (style . line-bracket)