X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fcrescendo.cc;h=d119ca9a04cf818ae9e70b370e11c56517aafd5a;hb=b0064942493df77833e6e41e05d362850f4874b0;hp=fd390e0826cbea3ebcfcb1dd9f82e00bbdd7db14;hpb=910faf0de802844cdafde781ce42af71986297bc;p=lilypond.git

diff --git a/lily/crescendo.cc b/lily/crescendo.cc
index fd390e0826..d119ca9a04 100644
--- a/lily/crescendo.cc
+++ b/lily/crescendo.cc
@@ -24,6 +24,7 @@ Crescendo::Crescendo (SCM s)
 
 
 
+MAKE_SCHEME_SCORE_ELEMENT_CALLBACKS(Crescendo)
 Molecule 
 Crescendo::do_brew_molecule () const
 {
@@ -36,7 +37,7 @@ Crescendo::do_brew_molecule () const
   if (!isdir_b (dir) || !gh_pair_p (dyns))
     {
       Crescendo * me = (Crescendo*)this;
-      me->set_elt_property ("transparent", SCM_BOOL_T);
+      me->suicide ();
       Molecule m;
       
       return m;