X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fchord-name-exceptions.ly;h=814deaaa5d8697e223fa92e117449074c6dff11c;hb=4d405ef96a8a62771d7d9a283ff5369a772e89d8;hp=2b7d6d897f9ba16ceb762430f03dbaf784a248a0;hpb=7e8d660df15820c540b74a4ab74d175284cd9008;p=lilypond.git

diff --git a/input/regression/chord-name-exceptions.ly b/input/regression/chord-name-exceptions.ly
index 2b7d6d897f..814deaaa5d 100644
--- a/input/regression/chord-name-exceptions.ly
+++ b/input/regression/chord-name-exceptions.ly
@@ -1,44 +1,29 @@
-\version "2.1.30"
-\header { texidoc = "The property @code{chordNameExceptions} can used
-    to store a list of special notations for specific chords.
-
-Putting the exceptions list encoded as
-@example
-	\\notes @{ <c f g bes>1\\markup @{ \\super \"7\" \"wahh\" @} @}
-@end example
-into @code{chordNameExceptions} takes a little manoeuvring. The
-following code transforms @code{chExceptionMusic} (which is a
-sequential music) into a list of exceptions.
-@example
-	(sequential-music-to-chord-exceptions chExceptionMusic \#t)
-@end example
-Then,
-@example
-	(append
-	  ... ignatzekExceptions)
-@end example
-adds the new exceptions to the default ones, which are defined in
-@file{ly/chord-modifier-init.ly}.
-" }
-
-
-% 7sus4 denoted with ^7 wahh
-chExceptionMusic = \notes {
-  <c f g bes>1-\markup { \super "7" "wahh" }}
-
-% add to existing exceptions.
+\version "2.16.0"
+\header {
+
+    texidoc = "The property @code{chordNameExceptions} can used
+    to store a list of special notations for specific chords."
+
+}
+
+
+				% 7sus4 denoted with ^7 wahh
+chExceptionMusic =  {
+    <c f g bes>1-\markup { \super "7" "wahh" }}
+
+				% add to existing exceptions.
 chExceptions = #(append
-  (sequential-music-to-chord-exceptions chExceptionMusic #t)
-  ignatzekExceptions)
-
-theMusic = \chords {
-      c:7sus4 c:dim7/+f
-      \set chordNameExceptions = #chExceptions
-      c:7sus4 c:dim7/+f }
-
-  
-\score {
-  << \context ChordNames \theMusic
-    \context Voice \theMusic
-  >>  
-  }
+		 (sequential-music-to-chord-exceptions chExceptionMusic #t)
+		 ignatzekExceptions)
+
+theMusic = \chordmode {
+    c:7sus4 c:dim7/+f
+    \set chordNameExceptions = #chExceptions
+    c:7sus4 c:dim7/+f
+}
+
+\layout { ragged-right = ##t }
+
+<< \context ChordNames \theMusic
+   \context Voice \theMusic
+>>