Basic-notation reorg and misc small fixes.

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index 715df36c36a7f3c4dfc9028bb1fdbd5c3e6b2eb3..02a9876b1c2f6779f1df43b5ff11b63170bf4293 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"
@@ -137,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;
@@ -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",
+                    ly_symbol2scm("music"), self_scm (), 0);
+}
+
 Music *
 make_music_by_name (SCM sym)
 {