X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=559eae3c3ff300e04e2a0eed635ea678e32d37ff;hb=e6e664d1bd2b125f6e34d47f7b7e69271865343a;hp=84055ed9addd552432c11ecba6afec558ef5a98f;hpb=2ff48d0a8a4b9ac85a9d4835caea04ead6ccb1da;p=lilypond.git

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 84055ed9ad..559eae3c3f 100644
--- 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)