From 5c5befc878489adfbddb4c80f549e20350c30934 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 1 Dec 2006 15:48:50 +0100 Subject: [PATCH] copy tags into mm texts. Fixes #152 --- scm/ly-syntax-constructors.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm index 23befc939e..cfdee35a3b 100644 --- a/scm/ly-syntax-constructors.scm +++ b/scm/ly-syntax-constructors.scm @@ -98,10 +98,14 @@ (define (script-to-mmrest-text music) "Extract 'direction and 'text from SCRIPT-MUSIC, and transform MultiMeasureTextEvent" + (if (memq 'script-event (ly:music-property music 'types)) - (let ((dir (ly:music-property music 'direction)) - (p (make-music 'MultiMeasureTextEvent + (let* + ((dir (ly:music-property music 'direction)) + (tags (ly:music-property music 'tags)) + (p (make-music 'MultiMeasureTextEvent + 'tags tags 'text (ly:music-property music 'text)))) (if (ly:dir? dir) (set! (ly:music-property p 'direction) dir)) -- 2.39.2