(note-name->markup): don't superscript root

[lilypond.git] / input / test / trill.ly

diff --git a/input/test/trill.ly b/input/test/trill.ly
index a7551eb015c004c7fd9d0ae0a5a97091b3f92f1b..4378350dcaf845b09f501128d90fa0a55dfa0385 100644 (file)
--- a/input/test/trill.ly
+++ b/input/test/trill.ly
@@ -1,4 +1,4 @@
-\version "1.7.18"
+\version "1.7.22"
 
 \header { texidoc="@cindex Trill
 Show trill line type. "
@@ -9,13 +9,13 @@ Show trill line type. "
   \context RhythmicStaff \notes {
     \stemDown
     \property Voice.Stem \override #'transparent = ##t
-    \property Voice.TextSpanner \set #'type = #'dotted-line
+    \property Voice.TextSpanner \set #'style = #'dotted-line
     \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
     \property Voice.TextSpanner \set #'edge-text = #'("bla " . "")
     a#(ly:export (make-span-event 'TextSpanEvent START)) b c a #(ly:export (make-span-event 'TextSpanEvent STOP))
 
     %\property Voice.TextSpanner \set #'font-family = #'music
-    \property Voice.TextSpanner \set #'type = #'trill
+    \property Voice.TextSpanner \set #'style = #'trill
     \property Voice.TextSpanner \set #'edge-height = #'(0 . 0)
     \property Voice.TextSpanner \set #'edge-text
      = #(cons (make-musicglyph-markup "scripts-trill")  "")