From 3b146cd05e8c8e53beadcb622085f420b7a25deb Mon Sep 17 00:00:00 2001
From: Mark Polesky <markpolesky@yahoo.com>
Date: Wed, 22 Jul 2009 16:29:54 -0700
Subject: [PATCH] define-music-types.scm: Sort music-descriptions alist.

---
 scm/define-music-types.scm | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index f54342781c..0dc1c66bcf 100644
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -120,6 +120,13 @@ Syntax: @var{note}@code{\\breathe}")
 	(types . (general-music event breathing-event))
 	))
 
+    (ClusterNoteEvent
+     . ((description . "A note that is part of a cluster.")
+	;; not a note-event, to ensure that Note_heads_engraver doesn't eat it.
+	(types . (general-music cluster-note-event melodic-event
+		  rhythmic-event event))
+	))
+
     (ContextChange
      . ((description . "Change staves in Piano staff.
 
@@ -128,13 +135,6 @@ Syntax: @code{\\change Staff = @var{new-id}}")
 	(types . (general-music translator-change-instruction))
 	))
 
-    (ClusterNoteEvent
-     . ((description . "A note that is part of a cluster.")
-	;; not a note-event, to ensure that Note_engraver doesn't eat it.
-	(types . (general-music cluster-note-event melodic-event
-		  rhythmic-event event))
-	))
-
     (ContextSpeccedMusic
      . ((description . "Interpret the argument music within a
 specific context.")
@@ -166,11 +166,6 @@ An alternative syntax is @var{note}@code{\\decr} @dots{}
 		  event))
 	))
 
-    (ExtenderEvent
-     . ((description . "Extend lyrics.")
-	(types . (general-music extender-event event))
-	))
-
     (Event
      . ((description . "Atomic music event.")
 	(types . (general-music event))
@@ -185,6 +180,11 @@ An alternative syntax is @var{note}@code{\\decr} @dots{}
 	(types . (general-music event-chord simultaneous-music))
 	))
 
+    (ExtenderEvent
+     . ((description . "Extend lyrics.")
+	(types . (general-music extender-event event))
+	))
+
     (FingeringEvent
      . ((description . "Specify what finger to use for this note.")
 	(types . (general-music fingering-event event))
@@ -405,16 +405,16 @@ Syntax: @code{\\unset @var{context}.@var{prop}}")
 	(types . (music-wrapper-music general-music relative-octave-music))
 	))
 
-    (RepeatTieEvent
-     . ((description . "Ties for starting a second volta bracket.")
-	(types . (general-music event repeat-tie-event))
-	))
-
     (RepeatedMusic
      . ((description . "Repeat music in different ways.")
 	(types . (general-music repeated-music))
 	))
 
+    (RepeatTieEvent
+     . ((description . "Ties for starting a second volta bracket.")
+	(types . (general-music event repeat-tie-event))
+	))
+
     (RestEvent
      . ((description . "A Rest.
 
-- 
2.39.5