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 9cbec5fc4f55f61c6b28f17e558109da84e0a4b4..4cbf9a67aa9a5b0e6775d415a3db36f8cadeaf29 100644 (file)
--- 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)