* lily/ various: Introduce stream events of types Prepare,

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index 191f42a1b725d82e00a3ba84470749f18efe2730..56b6998820c821c2a4a2917a5090cd60aca92a44 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -8,6 +8,8 @@
 
 #include "music.hh"
 
+#include "context.hh"
+#include "dispatcher.hh"
 #include "duration.hh"
 #include "input-smob.hh"
 #include "international.hh"
@@ -234,6 +236,13 @@ Music::origin () const
   return ip ? ip : &dummy_input_global;
 }
 
+void
+Music::send_to_context (Context *c)
+{
+  send_stream_event (c, "MusicEvent", origin (),
+                    ly_symbol2scm("music"), self_scm (), 0);
+}
+
 Music *
 make_music_by_name (SCM sym)
 {