X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fmusic-functions-init.ly;h=d7eba42a4b03159d4b14860031596db4930111ff;hb=c991eb5d49a1b36c81a890c4574f75d8834bb9a0;hp=1f94319bce743ca1e6994eebdff7daa672db0e12;hpb=f2bc6928587f5a7822651189bdfab40d2b896666;p=lilypond.git

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 1f94319bce..d7eba42a4b 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1506,6 +1506,12 @@ usually contains spacers or multi-measure rests.")
                'element main-music
                'quoted-music-name what))
 
+reduceChords =
+#(define-music-function (music) (ly:music?)
+   (_i "Reduce chords contained in @var{music} to single notes,
+intended mainly for reusing music in RhythmicStaff.  Does not
+reduce parallel music.")
+   (event-chord-reduce music))
 
 relative =
 #(define-music-function (pitch music)