diff options
| author | David Kastrup <dak@gnu.org> | 2016-08-15 17:40:05 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2016-08-21 18:59:39 +0200 |
| commit | b757ca820a230ef7393f6ed81e6aceda723caf26 (patch) | |
| tree | 0881d667d68301e215e018cf2d2ec9ecc005a75a | |
| parent | 4be8026d2324f2c32774f26255e719a7c71c5969 (diff) | |
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.
| -rw-r--r-- | ly/music-functions-init.ly | 7 |
1 files changed, 6 insertions, 1 deletions
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 |