From: David Kastrup <dak@gnu.org>
Date: Mon, 11 Feb 2013 10:17:01 +0000 (+0100)
Subject: Issue 3165: MultiMeasureTextEvent created by i.e. R1-1 did not take tweaks
X-Git-Tag: release/2.17.13-1~10^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5a486378f44ce4d8b4005337e989a4a7500a6071;p=lilypond.git

Issue 3165: MultiMeasureTextEvent created by i.e. R1-1 did not take tweaks

This just copies the whole event data including tweaks from the given
script event to the multimeasure text event.
---

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 9cbec5fc4f..4cbf9a67aa 100644
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -141,16 +141,8 @@
 into a @code{MultiMeasureTextEvent}."
 
   (if (memq 'script-event (ly:music-property music 'types))
-      (let* ((location (ly:music-property music 'origin))
-	     (dir (ly:music-property music 'direction))
-	     (tags (ly:music-property music 'tags))
-	     (p (make-music 'MultiMeasureTextEvent
-			    'origin location
-			    'tags tags
-			    'text (ly:music-property music 'text))))
-	(if (ly:dir? dir)
-	    (set! (ly:music-property p 'direction) dir))
-	p)
+      (apply make-music 'MultiMeasureTextEvent
+	     (flatten-alist (ly:music-mutable-properties music)))
       music))
 
 (define-ly-syntax (multi-measure-rest parser location duration articulations)