Issue 2695: Bad output in display-lily-tests.ly

This fixes a bug introduced with 4ab6e4df934e57c51dbbdbf2c209273c6cb5b888
while addressing issue 2522.

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index ef09f0b6fbc0e282c5eca55ac998296143f35b64..9505c3e2b052c50d7e091f0a467f469f5bc5161a 100644 (file)
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -259,9 +259,8 @@ expression."
     (and (with-music-match (?start (music
                                    'SequentialMusic
                                    elements ((music
-                                              'SkipEvent
-                                              duration (ly:make-duration 0 0 0 1)
-                                              articulations
+                                              'EventChord
+                                              elements
                                               ((music
                                                 'SlurEvent
                                                 span-direction START))))))
@@ -269,9 +268,8 @@ expression."
         (with-music-match (?stop (music
                                   'SequentialMusic
                                   elements ((music
-                                             'SkipEvent
-                                             duration (ly:make-duration 0 0 0 1)
-                                             articulations
+                                             'EventChord
+                                             elements
                                              ((music
                                                'SlurEvent
                                                span-direction STOP))))))
@@ -292,9 +290,8 @@ expression."
     (and (with-music-match (?start (music
                                    'SequentialMusic
                                    elements ((music
-                                              'SkipEvent
-                                              duration (ly:make-duration 0 0 0 1)
-                                              articulations
+                                              'EventChord
+                                              elements
                                               ((music
                                                 'SlurEvent
                                                 span-direction START)))
@@ -316,9 +313,8 @@ expression."
                                                       symbol 'Flag))
 
                                             (music
-                                             'SkipEvent
-                                             duration (ly:make-duration 0 0 0 1)
-                                             articulations
+                                             'EventChord
+                                             elements
                                              ((music
                                                'SlurEvent
                                                span-direction STOP))))))