parser.yy: strip music-wrapper-music inside of EventChord

[lilypond.git] / lily / event-chord-iterator.cc

diff --git a/lily/event-chord-iterator.cc b/lily/event-chord-iterator.cc
index 899287a99990036b4ccdf78a0c6638bd56254f40..4f3c081e269bd13b6e6a470cf2886c12f9554769 100644 (file)
--- a/lily/event-chord-iterator.cc
+++ b/lily/event-chord-iterator.cc
@@ -47,7 +47,10 @@ Event_chord_iterator::process (Moment m)
            scm_is_pair (s); s = scm_cdr (s))
         {
           Music *mus = unsmob_music (scm_car (s));
-          report_event (mus);
+         while (mus && mus->is_mus_type ("music-wrapper-music"))
+           mus = unsmob_music (mus->get_property ("element"));
+         if (mus)
+           report_event (mus);
         }
       for (SCM s = get_music ()->get_property ("events");
            scm_is_pair (s); s = scm_cdr (s))