From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 2 Nov 2006 15:02:41 +0000 (+0100)
Subject: set-part-combine fix for autochange.
X-Git-Tag: release/2.10.0-2~34^2~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=803e5864749fea2cd888525ebcf47fb94baeafd1;p=lilypond.git

set-part-combine fix for autochange.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 1473970c17..a1fafa63e3 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -96,7 +96,7 @@ assertBeamSlope =
 
 autochange =
 #(define-music-function (parser location music) (ly:music?)
-               (make-autochange-music music))
+               (make-autochange-music parser music))
 
 applyContext =
 #(define-music-function (parser location proc) (procedure?)
diff --git a/scm/autochange.scm b/scm/autochange.scm
index e4a27d7063..19921cf641 100644
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -3,7 +3,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; autochange - fairly related to part combining.
 
-(define-public (make-autochange-music music)
+(define-public (make-autochange-music parser music)
   (define (generate-split-list change-moment event-list acc)
     (if (null? event-list)
 	acc
@@ -32,7 +32,8 @@
   
   (let* ((m (make-music 'AutoChangeMusic))
 	(m1 (make-non-relative-music (context-spec-music music 'Voice "one")))
-	 (context-list (recording-group-emulate music part-combine-listener))
+	 (context-list (recording-group-emulate music
+						(ly:parser-lookup parser partCombineListener)))
 	 (evs (car context-list))
          (rev (reverse! (cdar context-list)))
 	 (split (reverse! (generate-split-list