* lily/translator-scheme.cc (ly:translator-property): Remove.

[lilypond.git] / lily / event.cc

diff --git a/lily/event.cc b/lily/event.cc
index c11c2b0ac7b2346c5097cfeb11407e5802b3ec3c..314ed194d611d4674af1619aab9a5cc2264c654d 100644 (file)
--- a/lily/event.cc
+++ b/lily/event.cc
@@ -3,17 +3,17 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "event.hh"
 #include "warn.hh"
 
-MAKE_SCHEME_CALLBACK(Event,length_callback,1);
+MAKE_SCHEME_CALLBACK (Event, length_callback, 1);
 SCM
 Event::length_callback (SCM m)
 {
-  Music* me = unsmob_music (m);
+  Music *me = unsmob_music (m);
   Duration *d = unsmob_duration (me->get_property ("duration"));
 
   Moment mom;
@@ -21,9 +21,9 @@ Event::length_callback (SCM m)
     {
       mom = d->get_length ();
     }
-  return mom.smobbed_copy();
+  return mom.smobbed_copy ();
 }
-  
+
 Event::Event (SCM i)
   : Music (i)
 {
@@ -35,17 +35,3 @@ Event::Event (SCM i)
 
 ADD_MUSIC (Event);
 
-Key_change_ev::Key_change_ev (SCM x)
-  : Event (x)
-{
-}
-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 ()));
-
-  Event::transpose (p);
-}
-
-ADD_MUSIC (Key_change_ev);