(music-descriptions): set length and

start-callback for QuoteMusic

diff --git a/ChangeLog b/ChangeLog
index 8e2f4bb5afd9cc74b033fa2ac0caad404facce76..baef465e8eea634708aa75b170aa91b0ef0fd5e7 100644 (file)
--- 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 3c9d9e2b65527a63267f25a85dfe1d858d2e7d3b..383d42b4a9229efdd4d4c97658664546ca3fdff9 100644 (file)
--- 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 294d2bc16851a5eac6a581b36c9f149a57f096d0..029532666e22b9416bd2a537f81a2394aa7addc9 100644 (file)
--- 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