Doc: Fix broken XRefs

[lilypond.git] / Documentation / snippets / changing-the-chord-names-to-german-or-semi-german-notation.ly

diff --git a/Documentation/snippets/changing-the-chord-names-to-german-or-semi-german-notation.ly b/Documentation/snippets/changing-the-chord-names-to-german-or-semi-german-notation.ly
index 0c55b4bde2a5125569d4ddb8d9375424c04eacaf..fdd185ca79c5df099619fd0d592f3a91bdf3a891 100644 (file)
--- a/Documentation/snippets/changing-the-chord-names-to-german-or-semi-german-notation.ly
+++ b/Documentation/snippets/changing-the-chord-names-to-german-or-semi-german-notation.ly
@@ -21,17 +21,14 @@ The english naming of chords (default) can be changed to german
   doctitle = "Changing the chord names to German or semi-German notation"
 } % begin verbatim
 
-
-music = \chordmode {
+scm = \chordmode {
   c1/c | cis/cis
   b1/b | bis/bis | bes/bes
 }
 
-%% The following is only here to print the names of the
-%% chords styles; it can be removed if you do not need to
-%% print them.
 
 \layout {
+  ragged-right = ##t
   \context {
     \ChordNames
     \consists "Instrument_name_engraver"
@@ -40,14 +37,24 @@ music = \chordmode {
 
 <<
   \new ChordNames {
-    \set ChordNames.instrumentName = #"default"
-    \music
+    \set instrumentName = #"default"
+    \scm
+  }
+  \new ChordNames {
+    \set instrumentName = #"german"
+    \germanChords \scm
   }
   \new ChordNames {
-    \set ChordNames.instrumentName = #"german"
-    \germanChords \music }
+    \set instrumentName = #"semi-german"
+    \semiGermanChords \scm
+  }
   \new ChordNames {
-    \set ChordNames.instrumentName = #"semi-german"
-    \semiGermanChords \music }
-  \context Voice { \music }
+    \set instrumentName = #"italian"
+    \italianChords \scm
+  }
+  \new ChordNames {
+    \set instrumentName = #"french"
+    \frenchChords \scm
+  }
+  \context Voice { \scm }
 >>