From: David Kastrup <dak@gnu.org>
Date: Thu, 17 Jan 2013 18:28:09 +0000 (+0100)
Subject: Use new music-clone arguments in \endSpanners
X-Git-Tag: release/2.17.11-1~7^2~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=958bb97d1ef05a5d8aa02488b16ecf0d387d27c9;p=lilypond.git

Use new music-clone arguments in \endSpanners
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index f321083218..6b5bd6ece8 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -344,10 +344,8 @@ without the need of a specific end spanner.")
 				  (extract-typed-music music 'span-event)))
 	  (stop-span-evs
 	   (map (lambda (m)
-		  (let ((c (music-clone m)))
-		    (set! (ly:music-property c 'span-direction) STOP)
-		    c))
-		start-span-evs))
+		  (music-clone m 'span-direction STOP))
+                start-span-evs))
 	  (end-ev-chord (make-music 'EventChord
 				    'elements stop-span-evs))
 	  (total (make-music 'SequentialMusic