Fix #1421.

* scm/define-grobs.scm (pure-print-to-height-conversions):

  add ly:arpeggio::brew-chord-slur

diff --git a/input/regression/arpeggio-parenthesis.ly b/input/regression/arpeggio-parenthesis.ly
index be6efcaca68d19c3a15f6748ed26d2eb7ab1e8ae..a1bd5943819fcb682e1f23d1adc1892aa53ef5f6 100644 (file)
--- a/input/regression/arpeggio-parenthesis.ly
+++ b/input/regression/arpeggio-parenthesis.ly
@@ -1,17 +1,12 @@
+\version "2.12.0"
 
 \header {
-
   texidoc = "There is a variant of the arpeggio sign that uses a
-  `vertical slur' instead of the wiggle."
-
+`vertical slur' instead of the wiggle."
 }
 
-\version "2.12.0"
-
 \relative c' {
   \arpeggioParenthesis
-
   % Note: does not work for cross staff arpeggios.
-  \override Arpeggio #'X-extent = #ly:grob::stencil-width
   <c g' c>2\arpeggio ~ c
 }

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index d68a2452f0bdbcee4136bc56b39ed06182fbab9b..c5c6d1094f9e3f57562e78b984bcce405c3e5fcf 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2426,6 +2426,7 @@
   `(
     (,ly:arpeggio::print . ,ly:arpeggio::pure-height)
     (,ly:arpeggio::brew-chord-bracket . ,ly:arpeggio::pure-height)
+    (,ly:arpeggio::brew-chord-slur . ,ly:arpeggio::pure-height)
     (,ly:hairpin::print . ,ly:hairpin::pure-height)
     (,ly:volta-bracket-interface::print . ,volta-bracket-interface::pure-height)))