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

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index cf48775f00ee06fb0ac2d74f33a1dc4b255793d2..56b6998820c821c2a4a2917a5090cd60aca92a44 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -7,11 +7,15 @@
 */
 
 #include "music.hh"
-#include "music-sequence.hh"
+
+#include "context.hh"
+#include "dispatcher.hh"
 #include "duration.hh"
 #include "input-smob.hh"
+#include "international.hh"
 #include "ly-smobs.icc"
 #include "main.hh"
+#include "music-sequence.hh"
 #include "pitch.hh"
 #include "score.hh"
 #include "warn.hh"
@@ -135,7 +139,7 @@ Music::generic_to_relative_octave (Pitch last)
          Pitch expected_pit (scm_to_int (check),
                              new_pit.get_notename (),
                              new_pit.get_alteration ());
-         origin ()->warning (_f ("octave check failed; expected %s, found: %s",
+         origin ()->warning (_f ("octave check failed; expected \"%s\", found: %s",
                                  expected_pit.to_string (),
                                  new_pit.to_string ()));
          new_pit = expected_pit;
@@ -232,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)
 {