X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmelisma-engraver.cc;h=6fa0653071faf5180e5d7ddca6b359a2d79183f8;hb=7e72a1e50e94a7f9738d62599de79fe7745f600c;hp=554d3c78dacf65eeb662eb77057dfce2dff68131;hpb=9a8fd4fbc5549b38a7fa3f637b2c7501da0d6dd4;p=lilypond.git

diff --git a/lily/melisma-engraver.cc b/lily/melisma-engraver.cc
index 554d3c78da..6fa0653071 100644
--- a/lily/melisma-engraver.cc
+++ b/lily/melisma-engraver.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -24,20 +24,12 @@ public:
 
 
 bool
-Melisma_engraver::try_music (Music *m) 
+Melisma_engraver::try_music (Music *) 
 {
-  SCM melisma_properties = get_property ("melismaBusyProperties");
-  bool busy = false;
-
-  for (; gh_pair_p (melisma_properties);
-       melisma_properties = gh_cdr (melisma_properties))
-      busy = busy || to_boolean (get_property (gh_car (melisma_properties)));
-
   /*
-    for the phrasing engraver we also need this.
+    This can only be melisma-playing-event.
    */
-  daddy_trans_->set_property ("melismaEngraverBusy",gh_bool2scm (busy));
-  return busy;
+  return melisma_busy (this);
 }
 
 Melisma_engraver::Melisma_engraver()
@@ -45,9 +37,9 @@ Melisma_engraver::Melisma_engraver()
 }
 
 ENTER_DESCRIPTION(Melisma_engraver,
-/* descr */       "",
+/* descr */       "This engraver collects melisma information about ties, beams, and user settings (@code{melismaBusy}, and signals it to the @code{\addlyrics} code.  ",
 /* creats*/       "",
 /* accepts */     "melisma-playing-event",
 /* acks  */      "",
 /* reads */       "melismaBusy melismaBusyProperties slurMelismaBusy tieMelismaBusy beamMelismaBusy",
-/* write */       "melismaEngraverBusy");
+/* write */       "");