From a51293375d99b41b6718acfbdda1a8f8db1415b1 Mon Sep 17 00:00:00 2001
From: Marc Hohl <marc@hohlart.de>
Date: Fri, 1 Oct 2010 08:36:45 +0200
Subject: [PATCH] tablature: support for text spanners in full notation

---
 input/regression/tablature-full-notation.ly | 25 ++++++++++++---------
 ly/property-init.ly                         |  1 +
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/input/regression/tablature-full-notation.ly b/input/regression/tablature-full-notation.ly
index 74c088e337..7f338df38c 100644
--- 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 5724004fb2..6c6a41a831 100644
--- 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
 }
-- 
2.39.5