Fix 510.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 4609a7ca58ea7a49f51b5bef00a8ade078ce7e56..4691b1b0d7eceb123c9fbb6afa03e9a6e32ae67e 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1525,7 +1525,7 @@
     (SpanBar
      . (
        (break-align-symbol . staff-bar)
-       (Y-extent . ())
+       (Y-extent . ,ly:axis-group-interface::height)
        (layer . 0)
        (non-musical . #t)
        (stencil . ,ly:span-bar::print)
@@ -1784,6 +1784,7 @@
        (X-offset . ,ly:side-position-interface::x-aligned-side)
        (direction . ,LEFT)
        (style . bar-line)
+       (collapse-height . 5.0)
        (thickness . 1.6)
        (stencil . ,ly:system-start-delimiter::print)
        (meta . ((class . Spanner)
@@ -1827,6 +1828,7 @@
        (avoid-slur . around)
        (slur-padding . 0.5)
        (script-priority . 200)
+       (cross-staff . ,ly:script-interface::calc-cross-staff)
        ;; todo: add X self alignment?
        (meta . ((class . Item)
                 (interfaces . (text-script-interface
@@ -2084,7 +2086,7 @@
        (stacking-dir . -1)
        (padding . 0.5)
        (vertical-skylines . ,ly:axis-group-interface::combine-skylines)
-       (max-stretch . ,ly:align-interface::calc-max-stretch)
+       (max-stretch . 0)
        (meta . ((class . Spanner)
                 (object-callbacks . ((Y-common . ,ly:axis-group-interface::calc-y-common)))
                 (interfaces . (align-interface
@@ -2251,6 +2253,7 @@
 
 (define pure-functions
   (list
+   parenthesize-elements
    ly:staff-symbol-referencer::callback
    ly:staff-symbol::height))