X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fchord-changes.ly;h=a662e4efc400304735ea649e35eadf80de6354d6;hb=2ffbc90e9f4dece349b414f34aeffc84043ed539;hp=60258e24075c2913c548506e9fc0eb9ecf5c71d4;hpb=fbdafe30e8cd0713b6564cf2e212e599fcd9247c;p=lilypond.git

diff --git a/input/regression/chord-changes.ly b/input/regression/chord-changes.ly
index 60258e2407..a662e4efc4 100644
--- a/input/regression/chord-changes.ly
+++ b/input/regression/chord-changes.ly
@@ -1,25 +1,28 @@
+\version "2.19.22"
+
 \header{
-texidoc="property chordChanges: only display chord names when
+  texidoc="Property chordChanges: display chord names only when
 there's a change in the chords scheme, but always display the
 chord name after a line break.
-";
+"
 }
 
-scheme = \chords {
+\layout{ ragged-right = ##t }
+
+
+scheme = \chordmode {
   c1:m \break c:m c:m c:m d
   c1:m \break c:m c:m c:m d
 }
 
 settings = {
-  \property ChordNames.chordChanges = ##t
 }
 
-\score {
-  \notes <
-    \context ChordNames < \scheme \settings >
-    \context Staff \transpose c'' \scheme
-  >
-  \paper{
-    linewidth = 40 * \staffspace;
-  }
-}
+<<
+  \new ChordNames <<
+    \scheme
+    \set chordChanges = ##t
+  >>
+  \new Staff \transpose c c' \scheme
+>>
+