(transpose): call Event::transpose() for

transposing the tonic.

diff --git a/lily/event.cc b/lily/event.cc
index 3031f0f212c91a5f5db5439f1dcb2a281aad2c6b..9fe4f5f64bf7252b2edc0980f33c0986d4caaa6d 100644 (file)
--- 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