* scm/music-functions.scm (determine-split-list): bugfixes.

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

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index ac2e7f7cb399c1db5f0eb3a64a05e0704a6301d1..8e04506c20f4453b7c26a94401fb907d71d22a0f 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -719,18 +719,17 @@
 
     (PianoPedalBracket   ;; an example of a text spanner
      . (
-       (molecule-callback . ,Text_spanner::brew_molecule)
-       (after-line-breaking-callback . ,Piano_pedal_bracket::after_line_breaking)
+       (molecule-callback . ,Piano_pedal_bracket::brew_molecule)
        (font-family . roman)
        (style . line)
        (if-text-padding . 1.0)
-       (enclose-bounds . #t)
+       (enclose-bounds . -1.0)
        (direction . -1)
        (bracket-flare . (0.5 . 0.5))
        (edge-height . (1.0 . 1.0))
        (shorten-pair . (0.0 . 0.0))
        (thickness .  1.0)
-       (meta . ((interfaces . (text-spanner-interface piano-pedal-interface piano-pedal-bracket-interface spanner-interface))))
+       (meta . ((interfaces . (line-interface piano-pedal-interface piano-pedal-bracket-interface spanner-interface))))
        ))
 
     (RepeatSlash
@@ -1084,7 +1083,7 @@
        (shorten-pair . (0.0 . -0.6))
        (staff-padding . 1.0)
        (padding  . 0.5)
-       (enclose-bounds . #t)
+       (enclose-bounds . 1)
        (minimum-length . 1.0)
        (dash-fraction . 0.3)
        (edge-height . (0 . 1.2))