From a67b688718ee7ef671738be8af9131a131b3dce6 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 24 Dec 2006 16:39:59 +0100
Subject: [PATCH] transpose a clone of the quoted event

Conflicts:

	lily/quote-iterator.cc
---
 lily/quote-iterator.cc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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_);
-- 
2.39.5