From 5a486378f44ce4d8b4005337e989a4a7500a6071 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 11 Feb 2013 11:17:01 +0100 Subject: [PATCH] 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. --- scm/ly-syntax-constructors.scm | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) 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) -- 2.39.2