From: David Kastrup <dak@gnu.org>
Date: Mon, 15 Aug 2016 15:40:05 +0000 (+0200)
Subject: Issue 4956/1: Let \retrograde expand repeat chords/notes
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b757ca820a230ef7393f6ed81e6aceda723caf26;p=lilypond.git

Issue 4956/1: Let \retrograde expand repeat chords/notes

Since those lose their point of reference, expanding them
prior to retrograding keeps the results sane.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index ee9fdb8c20..76c2ec64b8 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1551,7 +1551,12 @@ retrograde =
 #(define-music-function (music)
     (ly:music?)
     (_i "Return @var{music} in reverse order.")
-    (retrograde-music music))
+    (retrograde-music
+     (expand-repeat-notes!
+      (expand-repeat-chords!
+       (cons 'rhythmic-event
+             (ly:parser-lookup '$chord-repeat-events))
+       music))))
 
 revertTimeSignatureSettings =
 #(define-music-function