From e6e664d1bd2b125f6e34d47f7b7e69271865343a Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 6 May 2012 17:52:29 +0200 Subject: [PATCH] Make chord repeats q ignore <> --- scm/music-functions.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.39.2