Issue 4476: autochange: group multiple rests with the next note

[lilypond.git] / scm / autochange.scm

diff --git a/scm/autochange.scm b/scm/autochange.scm
index 17358aebe038b17986e76b455f0d10f4c1b9bacb..efc91edde179a87c47442d87708aa63dda24e241 100644 (file)
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -30,7 +30,7 @@
                                               now)
                                           (if (< dir 0) "down" "up")) acc))
               (generate-split-list
-               (if pitch #f now)
+               (if pitch #f (if change-moment change-moment now))
                dir
                (cdr event-list) acc)))))