From 1403a2c3b4a03ee78be253ac4c4f206b7a3b05db Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 20 Oct 2002 20:58:36 +0000
Subject: [PATCH] doc patch by Graham Percival

---
 ChangeLog                  |  4 ++++
 lily/fingering-engraver.cc |  1 -
 scm/music-types.scm        | 25 +++++++++++++++++--------
 3 files changed, 21 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bc774de919..4b66ebfe82 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-20  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* scm/music-types.scm: doc patch by Graham Percival
+
 2002-10-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* buildscripts/make-font-dir.py (sketch_p): Bugfix: only write
diff --git a/lily/fingering-engraver.cc b/lily/fingering-engraver.cc
index d92719e893..688b3492ae 100644
--- a/lily/fingering-engraver.cc
+++ b/lily/fingering-engraver.cc
@@ -53,7 +53,6 @@ Fingering_engraver::try_music (Music *m)
 void
 Fingering_engraver::acknowledge_grob (Grob_info inf)
 {
-  
   if (Stem::has_interface (inf.grob_))
     {
       for (int i=0; i < fingerings_.size (); i++)
diff --git a/scm/music-types.scm b/scm/music-types.scm
index 284dfc64e7..a2795ad7b9 100644
--- a/scm/music-types.scm
+++ b/scm/music-types.scm
@@ -3,14 +3,15 @@
   `(
     (AbortEvent
      . (
-	(description .  "Abort currently running spanners.")
+   (description .  "End the currently running spanners.")
 	(internal-class-name . "Event")
 	(span-type . "abort")
 	(types . (general-music event abort-event))
 	))
     (AbsoluteDynamicEvent
      . (
-	(description . "")
+   (description . "Creates a dynamic mark.  Syntax: @var{note}@code{\\x},
+where x is one of \@\{\\ppp, \\pp, \\p, \\mp, \\mf, \\f, \\ff, \\fff.\@\}")
 	(internal-class-name . "Event")
 	(types . (general-music event dynamic-event absolute-dynamic-event))
 	))
@@ -26,7 +27,11 @@
     ;; separate non articulation scripts  
     (ArticulationEvent
      . (
-	(description .  "")
+   (description .  "Adds an articulation marking to a note.  Syntax:
+@var{note}@code{X}@code{Y}, where X is a direction (up @code{^}, down
+@code{_}, or Lilypond's choice (no direction specified)), and where Y
+is an articulation (such as @code{-.}, @code{->}, @code{\\tenuto},
+@code{\\downbow}).  See the user manual for details.")
 
 	(internal-class-name . "Event")
 	(types . (general-music event articulation-event script-event))
@@ -55,21 +60,23 @@
 	))
     (BeamEvent
      . (
-	(description .  "")
+   (description .  "Starts or stops a beam.  Syntax for manual control:
+\[c8 c c\] c8")
 
 	(internal-class-name . "Event")
 	(types . (general-music event beam-event span-event))
 	))
     (BreakEvent
      . (
-	(description .  "")
+   (description .  "Creates a line break.  Syntax: \\break.")
 
 	(internal-class-name . "Event")
 	(types . (general-music break-event event))
 	))
     (BreathingSignEvent
      . (
-	(description .  "")
+   (description .  "Creates a `breath mark' or `comma'.  Syntax:
+@var{note}\\breathe.")
 
 	(internal-class-name . "Event")
 	(types . (general-music event breathing-event))
@@ -90,7 +97,9 @@
 	))
     (CrescendoEvent
      . (
-	(description .  "")
+   (description .  "Begins or ends a crescendo.  Syntax: @var{note}\\cr
+... @var{note}\\rc (you can also use \\<, \\!, \\cresc, and
+\\endcresc.  See the user manual for details.).")
 
 	(internal-class-name . "Event")
 	(types . (general-music dynamic-event crescendo-event event))
@@ -446,7 +455,7 @@
 	)) 
     (TieEvent
      . (
-	(description .  "A tie. Entered as ~.")
+	(description .  "A tie.  Entered as ~.")
 	(internal-class-name . "Event")
 	(types . (general-music tie-event event))
 	))
-- 
2.39.5