From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 2 Nov 2006 15:04:32 +0000 (+0100)
Subject: autochange thinko.
X-Git-Tag: release/2.10.0-2~34^2~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b6e3cdc190bcbd82f7e8af558b4549965cdd9fc6;p=lilypond.git

autochange thinko.
---

diff --git a/scm/autochange.scm b/scm/autochange.scm
index 19921cf641..c445997199 100644
--- a/scm/autochange.scm
+++ b/scm/autochange.scm
@@ -33,7 +33,7 @@
   (let* ((m (make-music 'AutoChangeMusic))
 	(m1 (make-non-relative-music (context-spec-music music 'Voice "one")))
 	 (context-list (recording-group-emulate music
-						(ly:parser-lookup parser partCombineListener)))
+						(ly:parser-lookup parser 'partCombineListener)))
 	 (evs (car context-list))
          (rev (reverse! (cdar context-list)))
 	 (split (reverse! (generate-split-list