patch::: 1.3.137.jcn3

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index 64044b1f5ac9ddcb34876beffd88d974188472a5..75bf2746fb5d0da3b246e0aa92f4337e579d63e6 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -184,10 +184,14 @@ Music::set_mus_property (SCM s, SCM v)
   mutable_property_alist_ = scm_assq_set_x (mutable_property_alist_, s, v);
 }
 
+#include "main.hh"
 void
 Music::set_spot (Input ip)
 {
-   set_mus_property ("origin", make_input (ip));
+  /* misuse midi-debug flag: don't store origin */
+  if (midi_debug_global_b)
+    return;
+  set_mus_property ("origin", make_input (ip));
 }