X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fchord-name-exceptions.ly;h=1b889c357ac4d96e6ca1b8f68ce3b518d493079d;hb=5956be580d291c1460f1c4b5f6e4a1c3e6549602;hp=d93ff544b7d75f4079dfdac32acfedd3a5ab2657;hpb=e9bd265943d37689b1a6892217cb6f67bbe69f73;p=lilypond.git

diff --git a/input/regression/chord-name-exceptions.ly b/input/regression/chord-name-exceptions.ly
index d93ff544b7..1b889c357a 100644
--- a/input/regression/chord-name-exceptions.ly
+++ b/input/regression/chord-name-exceptions.ly
@@ -1,10 +1,10 @@
-\version "1.9.1"
+\version "2.3.16"
 \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\" @} @}
+	\ @{ <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
@@ -23,22 +23,22 @@ adds the new exceptions to the default ones, which are defined in
 
 
 % 7sus4 denoted with ^7 wahh
-chExceptionMusic = \notes {
-  <<c f g bes>>1\markup { \super "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
-      \property Current.chordNameExceptions = #chExceptions
-      c:7sus4 c:dim7 }
+theMusic = \chordmode {
+      c:7sus4 c:dim7/+f
+      \set chordNameExceptions = #chExceptions
+      c:7sus4 c:dim7/+f }
 
   
 \score {
-  < \context ChordNames \theMusic
+  << \context ChordNames \theMusic
     \context Voice \theMusic
-  >  
+  >>  
   }