tablature: support for text spanners in full notation

diff --git a/input/regression/tablature-full-notation.ly b/input/regression/tablature-full-notation.ly
index 74c088e3372c0299e5447d975cbd646f50311a1a..7f338df38c584d6c99a6e90934f40f0e36dd5555 100644 (file)
--- a/input/regression/tablature-full-notation.ly
+++ b/input/regression/tablature-full-notation.ly
@@ -1,4 +1,4 @@
-\version "2.13.8"
+\version "2.13.37"
 
 \header{ texidoc = "As default, tablature staves show only the fret numbers, because
                     in most situations, they are combined with normal staves.
@@ -9,19 +9,22 @@
 tabstuff = {
   \time 3/4
   \compressFullBarRests
-  c4^"test" d( e)
-  f4\f g a^\fermata
-  R2.*3
-  c8\<\( c16 c ~ c2\!
-  c'2.\)
+  c4^"test" d( e) |
+  f4\f g a^\fermata |
+  R2.*3 |
+  c8\<\( c16 c ~ c2\! |
+  c'2.\) |
   \mark \default
-  R2.
+  R2. |
   \ottava #1
-  r4 d'4 r8 e
+  r4 d'4 r8 e |
   \ottava #0
-  \times 3/4 { b,4 c \glissando d\5 \glissando c }
-  c4. d-_( e\varcoda)
-  ->f g~ a\prall g\thumb e-.
+  \times 3/4 { b,4 c \glissando d\5 \glissando c } |
+  c4. d-_( |
+  e\varcoda-> )
+  \override TextSpanner #'(bound-details left text) = "rit." f\startTextSpan |
+  g ~ a\prall |
+  g\thumb e-.\stopTextSpan
   \bar "|."
 }
 

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 5724004fb2e796df89b6dd04fbbfb2f1a5497169..6c6a41a8312a39df1eca85f2a045547c5344910c 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -452,6 +452,7 @@ tabFullNotation = {
   % markups etc.
   \revert TabVoice.Script #'stencil
   \revert TabVoice.TextScript #'stencil
+  \revert TabVoice.TextSpanner #'stencil
   \revert TabStaff.Arpeggio #'stencil
   \revert TabStaff.NoteColumn #'ignore-collision
 }