release: 1.5.25

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 6d2257b7e6c837362b14d0a171d3da7c00e6ceee..98127c076f23fb94654ba1c020141a108ee1b462 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -14,6 +14,8 @@ This function replaces all repeats  with unfold repeats. It was
 written by Rune Zedeler. "
   (let* ((es (ly-get-mus-property music 'elements))
          (e (ly-get-mus-property music 'element))
+         (body (ly-get-mus-property music 'body))
+         (alts (ly-get-mus-property music 'alternatives))
          (n  (ly-music-name music)))
 
     (if (equal? n "Repeated_music")
@@ -28,6 +30,16 @@ written by Rune Zedeler. "
          music 'elements
          (map unfold-repeats es)))
 
+    (if (music? alts)
+        (ly-set-mus-property
+         music 'alternatives
+         (unfold-repeats alts)))
+
+    (if (music? body)
+        (ly-set-mus-property
+         music 'body
+         (unfold-repeats body)))
+
     (if (music? e)
         (ly-set-mus-property
          music 'element