From: David Kastrup <dak@gnu.org>
Date: Sun, 6 May 2012 15:52:29 +0000 (+0200)
Subject: Make chord repeats q ignore <>
X-Git-Tag: release/2.15.39-1~52
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=e6e664d1bd2b125f6e34d47f7b7e69271865343a;p=lilypond.git

Make chord repeats q ignore <>
---

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)