X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fbar-lines-lyric-only.ly;h=e65cf6d480cae0c39d7cb0cccc9c18ea31a24f4e;hb=a067c17f1883996a25c866e6b86d387fc989cf68;hp=5a9c34f566b260f71b917d6a027d945fe7745b45;hpb=ab44d6965ec6af3b58e2ef469b98689a5af64bb0;p=lilypond.git

diff --git a/input/test/bar-lines-lyric-only.ly b/input/test/bar-lines-lyric-only.ly
index 5a9c34f566..e65cf6d480 100644
--- a/input/test/bar-lines-lyric-only.ly
+++ b/input/test/bar-lines-lyric-only.ly
@@ -1,39 +1,38 @@
-\version "1.7.18"
-\header {
-
-texidoc = "@cindex Bar Line Lyric Only
-You can move around Bar_engraver and
-Span_bar_engraver if you want bar lines on lyrics."  }
-
+\version "2.7.39"
+\header { texidoc = "@cindex Bar line lyric only
+You can move @code{Bar_engraver} and @code{Span_bar_engraver} to 
+a different engraving context, if you want, for example, bar lines 
+on lyrics. "
+}
 
 \score {
-\notes \relative c' \context StaffGroup = groupie <
- \context Staff = SA { c1 c1 c1}
- \context Lyrics \lyrics <
-  { bla1 die bla }
-  { foo bar foo }
-  { foo bar foo }  
- >
- \context Staff = SB { c1 c1 c1} 
+    \relative c' \context ChoirStaff <<
+	\new Staff { c1 c1 c1}
+	\lyricmode <<
+	    \new Lyrics  { bla1 die bla }
+	>>
+	\new Staff { c1 c1 c1} 
+    >>
 
- > 
 
+    \layout  {
+	ragged-right = ##t
+	\context {
+	    \Lyrics
+	    \consists Bar_engraver
 
-\paper  {
-\translator {
-  \LyricsVoiceContext
-  \consists Bar_engraver
-  % need procedure, since lyrics doesn't have a staff_sym engraver.
-  BarLine \override #'bar-size-procedure = #(lambda (x) 3.0)
-}
 
-\translator {
-  \LyricsContext
-  \consists "Span_bar_engraver"
-}
-\translator{
-  \StaffGroupContext
-  \remove "Span_bar_engraver"
+	    %% need procedure, since lyrics doesn't have a staff_sym engraver.
+	    \override BarLine #'bar-size = #3.0
+	}
+	\context{
+	    \ChoirStaff
+	    \remove "Span_bar_engraver"
+	}
+	\context {
+	    \Staff
+	    \remove "Bar_engraver"
+	}
+    }
 }
-}}
-%% new-chords-done %%
+