From 72a4b46deb0ff5503b9cdaf76e214196b6667dd7 Mon Sep 17 00:00:00 2001 From: Dan Eble Date: Sat, 27 Jun 2015 16:50:24 -0400 Subject: [PATCH] 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. --- input/regression/auto-change.ly | 2 +- scm/autochange.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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))))) -- 2.39.2