X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-event-classes.scm;h=c632e430a95f37a1dd184e8a8cdef5e4906ce132;hb=d544bd3103acc8175089ec6aeecd57376f2d201d;hp=539288b8439f34bcc0dc2be517e9b6f882b92e3a;hpb=c1d5bb448321d688185e0c6b798575d4c325ae80;p=lilypond.git

diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm
index 539288b843..c632e430a9 100644
--- a/scm/define-event-classes.scm
+++ b/scm/define-event-classes.scm
@@ -25,7 +25,7 @@
 		 (RemoveContext ChangeParent Override Revert UnsetProperty
 				SetProperty music-event OldMusicEvent CreateContext Prepare
 				OneTimeStep Finish))
-    (music-event . (annotate-output-event
+    (music-event . (annotate-output-event footnote-event
 		    arpeggio-event breathing-event extender-event span-event
       rhythmic-event dynamic-event break-event label-event percent-event
       key-change-event string-number-event stroke-finger-event tie-event
@@ -50,8 +50,9 @@
     (break-span-event . (break-dynamic-span-event))
     (pedal-event . (sostenuto-event sustain-event una-corda-event))
     (rhythmic-event . (lyric-event melodic-event multi-measure-rest-event
-				   percent-event
-				   rest-event skip-event bass-figure-event))
+				   double-percent-event percent-event
+				   repeat-slash-event rest-event
+				   skip-event bass-figure-event))
     (melodic-event . (cluster-note-event note-event))
     (() . (Announcement))
     (Announcement . (AnnounceNewContext))