X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fquote-iterator.cc;h=7f42310f7f497b6f9d48c2fda2a978b885f24b1e;hb=918ed854dd4893789234f1a2e7854f13c0f04070;hp=dead1d503e25466cf3e6dbe541f74662a11e244f;hpb=c4c0ba811cd526f047de3f4d3c77abcc32a3e076;p=lilypond.git

diff --git a/lily/quote-iterator.cc b/lily/quote-iterator.cc
index dead1d503e..7f42310f7f 100644
--- a/lily/quote-iterator.cc
+++ b/lily/quote-iterator.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "music-wrapper-iterator.hh"
@@ -15,7 +15,6 @@
 #include "lily-guile.hh"
 #include "music-sequence.hh"
 #include "music.hh"
-#include "stream-event.hh"
 #include "warn.hh"
 
 class Quote_iterator : public Music_wrapper_iterator
@@ -245,9 +244,9 @@ Quote_iterator::process (Moment m)
 		    mp = *me_pitch;
 
 		  Pitch diff = pitch_interval (qp, mp);
-
-		  SCM props =  transpose_mutable (ev->get_property_alist (true), diff);
-		  ev = new Stream_event (ev->get_property ("class"), props);
+		  ev = ev->clone ();
+		  
+		  transpose_mutable (ev->get_property_alist (true), diff);
 		  transposed_musics_ = scm_cons (ev->unprotect (), transposed_musics_);
 		}
 	      quote_outlet_.get_outlet ()->event_source ()->broadcast (ev);