From ce17aa8888f230198e219e30c058dcb0cb88679e Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Sat, 17 Sep 2005 16:16:31 +0000
Subject: [PATCH] (music-descriptions): set length and start-callback for
 QuoteMusic

---
 ChangeLog                  | 8 +++++++-
 scm/define-music-types.scm | 4 +++-
 scm/part-combiner.scm      | 2 +-
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8e2f4bb5af..baef465e8e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-17  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/define-music-types.scm (music-descriptions): set length and
+	start-callback for QuoteMusic
+
 2005-09-15  Mats Bengtsson  <mabe@drongo.s3.kth.se>
 
 	* lily/tie.cc (get_configuration): Replace fabs -> abs for integer
@@ -8,7 +13,8 @@
 	* stepmake/stepmake/python-module-rules.make
 	($(outdir)/%$(SHARED_MODULE_SUFFIX)): SHARED_FLAGS at the end.  
 
-	* lily/*.cc: remove <cmath> everywhere. <cmath> is included from real.hh
+	* lily/*.cc: remove <cmath> everywhere. <cmath> is included from
+	real.hh
 
 2005-09-12  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index 3c9d9e2b65..383d42b4a9 100644
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -401,7 +401,9 @@ goes down).")
      . (
 	(description . "Quote preprocessed snippets of music. ")
 	(iterator-ctor . ,Quote_iterator::constructor)
-	(types . (general-music))
+	(length-callback . ,Music_wrapper::length_callback)
+	(start-callback . ,Music_wrapper::start_callback)
+	(types . (general-music music-wrapper-music))
 	))
     
     (RelativeOctaveCheck
diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 294d2bc168..029532666e 100644
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -461,7 +461,7 @@ the mark when there are no spanners active."
 				     part-combine-listener))
 	 (first-voice-handle (last-pair noticed)))
 
-    ;; (display (last-pair noticed))
+    ;;(display first-voice-handle)
     (if (pair? first-voice-handle)
 	(hash-set! tab name
 		   ;; cdr : skip name string
-- 
2.39.5