Make chord repeats q ignore <>

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

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 84055ed9addd552432c11ecba6afec558ef5a98f..559eae3c3ff300e04e2a0eed635ea678e32d37ff 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -653,7 +653,11 @@ respective predecessor chord."
        (let ((chord-repeat (ly:music-property music 'duration)))
          (cond
           ((not (ly:duration? chord-repeat))
-           music)
+           (if (any (lambda (m) (ly:duration?
+                                 (ly:music-property m 'duration)))
+                    (ly:music-property music 'elements))
+               music
+               last-chord))
           (last-chord
            (set! (ly:music-property music 'duration) '())
            (copy-repeat-chord last-chord music chord-repeat event-types)