From: Han-Wen Nienhuys Date: Fri, 14 Jan 2005 13:43:02 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: release/2.5.14~257 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f967a5dbcad60c54f3ab7aefb875191387c5733f;p=lilypond.git *** empty log message *** --- diff --git a/scm/music-functions.scm b/scm/music-functions.scm index b19cc5cf88..fa4e9f2c24 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -127,9 +127,8 @@ This function replaces all repeats with unfold repeats. " (let ((es (ly:music-property music 'elements)) (e (ly:music-property music 'element)) (n (ly:music-name music))) - (if (equal? n "Repeated_music") + (if (memq 'repeated-music (ly:music-property music 'types)) (begin - (if (equal? (ly:music-property music 'iterator-ctor) Chord_tremolo_iterator::constructor) (let* ((seq-arg? (memq 'sequential-music @@ -147,9 +146,9 @@ This function replaces all repeats with unfold repeats. " (if seq-arg? (ly:music-compress e (ly:make-moment (length (ly:music-property e 'elements)) 1))))) - (set! (ly:music-property music 'length) + (set! (ly:music-property music 'length-callback) Repeated_music::unfolded_music_length) - (set! (ly:music-property music 'start-moment-function) + (set! (ly:music-property music 'start-callback) Repeated_music::first_start) (set! (ly:music-property music 'iterator-ctor) Unfolded_repeat_iterator::constructor)))