From: David Kastrup <dak@gnu.org>
Date: Wed, 25 Jul 2012 14:52:15 +0000 (+0200)
Subject: Issue 2695: Bad output in display-lily-tests.ly
X-Git-Tag: release/2.15.42-1~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e2853fe82389af7e0a21bce0262b6453e3430614;p=lilypond.git

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 ef09f0b6fb..9505c3e2b0 100644
--- 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))))))