From: hanwen Date: Sat, 17 Sep 2005 16:16:31 +0000 (+0000) Subject: (music-descriptions): set length and X-Git-Tag: release/2.7.16^2~151 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ce17aa8888f230198e219e30c058dcb0cb88679e;p=lilypond.git (music-descriptions): set length and start-callback for QuoteMusic --- diff --git a/ChangeLog b/ChangeLog index 8e2f4bb5af..baef465e8e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-09-17 Han-Wen Nienhuys + + * scm/define-music-types.scm (music-descriptions): set length and + start-callback for QuoteMusic + 2005-09-15 Mats Bengtsson * 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 everywhere. is included from real.hh + * lily/*.cc: remove everywhere. is included from + real.hh 2005-09-12 Han-Wen Nienhuys 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