(interface-doc): prune Grob

[lilypond.git] / lily / melisma-engraver.cc

diff --git a/lily/melisma-engraver.cc b/lily/melisma-engraver.cc
index adc6d218fdcb53e7432d3e304ed4e4a4f7fd9deb..7513fb4e22d4735dede3cbb02a85cdfb1255ed4f 100644 (file)
--- a/lily/melisma-engraver.cc
+++ b/lily/melisma-engraver.cc
@@ -3,10 +3,13 @@
   
   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>
   
  */
 
+/*
+  duplicated in melisma-performer
+ */
 #include "engraver.hh"
 #include "event.hh"
 #include "grob.hh"
@@ -15,7 +18,7 @@
 /**
    Signal existence of melismas.
  */
-class Melisma_engraver:public Engraver
+class Melisma_engraver : public Engraver
 {
 public:
   TRANSLATOR_DECLARATIONS(Melisma_engraver);
@@ -23,33 +26,13 @@ public:
 };
 
 
-/*
-  HUH ?
-
-  how's this supposed to work?
- */
 bool
-Melisma_engraver::try_music (Music *m) 
+Melisma_engraver::try_music (Music *) 
 {
-  SCM plain (get_property ("melismaBusy"));
-  SCM slur (get_property ("slurMelismaBusy"));
-  SCM tie (get_property ("tieMelismaBusy"));
-  SCM beam (get_property ("beamMelismaBusy"));
-      
-  if ((to_boolean (plain))
-      || (to_boolean (slur))
-      || (to_boolean (tie))
-      || (to_boolean (beam)))
-    {
-
-      daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_T);
-      return true;
-    }
-  else
-    {
-      daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_F);
-      return false;
-    }
+  /*
+    This can only be melisma-playing-event.
+   */
+  return melisma_busy (this);
 }
 
 Melisma_engraver::Melisma_engraver()
@@ -57,9 +40,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 slurMelismaBusy tieMelismaBusy beamMelismaBusy",
-/* write */       "melismaEngraverBusy");
+/* reads */       "melismaBusy melismaBusyProperties slurMelismaBusy tieMelismaBusy beamMelismaBusy",
+/* write */       "");