X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=559eae3c3ff300e04e2a0eed635ea678e32d37ff;hb=6cc24e4a3246f1daaf79db3bec97a4a4541b5149;hp=84055ed9addd552432c11ecba6afec558ef5a98f;hpb=92bfc879f666457f9dc51b190f4f605937035179;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)