From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 24 Dec 2006 15:39:59 +0000 (+0100)
Subject: transpose a clone of the quoted event
X-Git-Tag: release/2.10.5-1~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a67b688718ee7ef671738be8af9131a131b3dce6;p=lilypond.git

transpose a clone of the quoted event

Conflicts:

	lily/quote-iterator.cc
---

diff --git a/lily/quote-iterator.cc b/lily/quote-iterator.cc
index dead1d503e..f33a432212 100644
--- a/lily/quote-iterator.cc
+++ b/lily/quote-iterator.cc
@@ -245,7 +245,8 @@ Quote_iterator::process (Moment m)
 		    mp = *me_pitch;
 
 		  Pitch diff = pitch_interval (qp, mp);
-
+		  ev = ev->clone ();
+		  
 		  SCM props =  transpose_mutable (ev->get_property_alist (true), diff);
 		  ev = new Stream_event (ev->get_property ("class"), props);
 		  transposed_musics_ = scm_cons (ev->unprotect (), transposed_musics_);