From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 21 Nov 2004 22:46:29 +0000 (+0000)
Subject: (transpose): call Event::transpose() for
X-Git-Tag: release/2.5.14~504
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a4bf88ba3b30dda555be6b40d7206b51c12953b7;p=lilypond.git

(transpose): call Event::transpose() for
transposing the tonic.
---

diff --git a/lily/event.cc b/lily/event.cc
index 3031f0f212..9fe4f5f64b 100644
--- a/lily/event.cc
+++ b/lily/event.cc
@@ -155,11 +155,9 @@ void
 Key_change_ev::transpose (Pitch p)
 {
   SCM pa = get_property ("pitch-alist");
-
   set_property ("pitch-alist", ly_transpose_key_alist (pa, p.smobbed_copy ()));
-  Pitch tonic = *unsmob_pitch (get_property ("tonic"));
-  set_property ("tonic",
-		    tonic.smobbed_copy ());
+
+  Event::transpose (p);
 }
 
 bool