From: Mark Polesky <markpolesky@yahoo.com>
Date: Wed, 22 Jul 2009 23:22:51 +0000 (-0700)
Subject: define-music-display-methods.scm: Sort post-event? list.
X-Git-Tag: release/2.13.4-1~301^2~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=81a29a40d937dcd49da58ca73856928a29ffd5c8;p=lilypond.git

define-music-display-methods.scm: Sort post-event? list.
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 9a3a4c1069..c0811990f7 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -134,33 +134,34 @@
 ;;; post events
 ;;;
 
-(define post-event? (make-music-type-predicate
-		     'StringNumberEvent
-		     'ArticulationEvent
-		     'FingeringEvent
-		     'TextScriptEvent
-		     'MultiMeasureTextEvent
-		     'HyphenEvent
-		     'ExtenderEvent
-		     'BeamEvent
-		     'SlurEvent
-		     'TieEvent
-		     'CrescendoEvent
-		     'DecrescendoEvent
-		     'PhrasingSlurEvent
-		     'TremoloEvent
-		     'SustainEvent
-		     'SostenutoEvent
-		     'TextSpanEvent
-		     'HarmonicEvent
-		     'BeamForbidEvent
-		     'AbsoluteDynamicEvent
-		     'TupletSpanEvent
-		     'TrillSpanEvent
-		     'GlissandoEvent
-		     'ArpeggioEvent
-		     'NoteGroupingEvent
-		     'UnaCordaEvent))
+(define post-event?
+  (make-music-type-predicate
+    'AbsoluteDynamicEvent
+    'ArpeggioEvent
+    'ArticulationEvent
+    'BeamEvent
+    'BeamForbidEvent
+    'CrescendoEvent
+    'DecrescendoEvent
+    'ExtenderEvent
+    'FingeringEvent
+    'GlissandoEvent
+    'HarmonicEvent
+    'HyphenEvent
+    'MultiMeasureTextEvent
+    'NoteGroupingEvent
+    'PhrasingSlurEvent
+    'SlurEvent
+    'SostenutoEvent
+    'StringNumberEvent
+    'SustainEvent
+    'TextScriptEvent
+    'TextSpanEvent
+    'TieEvent
+    'TremoloEvent
+    'TrillSpanEvent
+    'TupletSpanEvent
+    'UnaCordaEvent))
 
 (define* (event-direction->lily-string event #:optional (required #t))
   (let ((direction (ly:music-property event 'direction)))