From: Keith OHara <k-ohara5a5a@oco.net>
Date: Sun, 3 May 2015 05:49:54 +0000 (-0700)
Subject: repeat tremolo: robust to zero-duration elements
X-Git-Tag: release/2.19.21-1~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6dbb7c4cfab2a0c2ce47f229592efc0ffc7d519a;p=lilypond.git

repeat tremolo: robust to zero-duration elements
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 611879ae8b..65f885bbf8 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -285,8 +285,9 @@ depth-first through MUSIC."
          (body (ly:music-property tremolo 'element))
          (children (if (music-is-of-type? body 'sequential-music)
                        ;; \repeat tremolo n { ... }
-                       (length (extract-named-music body '(EventChord
-                                                           NoteEvent)))
+                       (count duration-of-note ; do not count empty <>
+                              (extract-named-music body
+                                                   '(EventChord NoteEvent)))
                        ;; \repeat tremolo n c4
                        1))
          (tremolo-type (if (positive? children)