From: Dan Eble <nine.fierce.ballads@gmail.com>
Date: Sat, 27 Jun 2015 20:50:24 +0000 (-0400)
Subject: Issue 4476: autochange: group multiple rests with the next note
X-Git-Tag: release/2.19.23-1~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=72a4b46deb0ff5503b9cdaf76e214196b6667dd7;p=lilypond.git

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

Before this change, only the first rest before a note was kept with
the note.
---

diff --git a/input/regression/auto-change.ly b/input/regression/auto-change.ly
index c89034362c..493e97c12f 100644
--- a/input/regression/auto-change.ly
+++ b/input/regression/auto-change.ly
@@ -13,7 +13,7 @@ note. When central C is reached, staff is not yet switched (by default).
 
 \context PianoStaff <<
   \context Staff = "up" {
-    \autochange  \new Voice << \relative { g4 c e d c r4 a g } >>
+    \autochange  \new Voice << \relative { g4 c e d c8 r r4 a g } >>
   }
   \context Staff = "down" {
     \clef bass 
diff --git a/scm/autochange.scm b/scm/autochange.scm
index 17358aebe0..efc91edde1 100644
--- 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)))))