X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fchord-name-exceptions.ly;h=21eda82d0b3e706dc6b70e035e08f1b03c540713;hb=37ca1f80bf5401accd17056938f4f7b2c147ddb2;hp=8e174224d8240b381508aa07919039b9da39ec73;hpb=70cc70f3a6183472b93fc4c2b4c60cc0375b6d64;p=lilypond.git

diff --git a/input/lsr/chord-name-exceptions.ly b/input/lsr/chord-name-exceptions.ly
index 8e174224d8..21eda82d0b 100644
--- a/input/lsr/chord-name-exceptions.ly
+++ b/input/lsr/chord-name-exceptions.ly
@@ -1,28 +1,33 @@
 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.35"
+\version "2.11.49"
 
 \header {
   lsrtags = "chords"
- texidoc = "
-The property @code{chordNameExceptions} can used to store a list of
+
+  texidoc = "
+The property @code{chordNameExceptions} can be used to store a list of
 special notations for specific chords. 
-" }
-% begin verbatim
-% 7sus4 denoted with ^7 wahh
+
+"
+  doctitle = "Chord name exceptions"
+} % begin verbatim
+% modify maj9 and 6(add9)
+% Exception music is chords with markups
 chExceptionMusic = {
-  <c f g bes>1-\markup { \super "7" "wahh" }
+  <c e g b d'>1-\markup { \super "maj9" }
+  <c e g a d'>1-\markup { \super "6(add9)" }
 }
 
-% add to existing exceptions.
-chExceptions = #(append
-  (sequential-music-to-chord-exceptions chExceptionMusic #t)
+% Convert music to list and prepend to existing exceptions.
+chExceptions = #( append
+  ( sequential-music-to-chord-exceptions chExceptionMusic #t)
   ignatzekExceptions)
 
 theMusic = \chordmode {
-  c:7sus4 c:dim7/+f
+  g1:maj9 g1:6.9
   \set chordNameExceptions = #chExceptions
-  c:7sus4 c:dim7/+f
+  g1:maj9 g1:6.9
 }
 
 \layout {
@@ -32,4 +37,3 @@ theMusic = \chordmode {
 << \context ChordNames \theMusic
    \context Voice \theMusic
 >>  
-