From 133f905bae15566c28274ce8f2fb60a154259b62 Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Thu, 12 Aug 2010 20:52:37 +0100 Subject: [PATCH] Copy input location from original event for MultiMeasureTextEvent. This preserves the point-and-click info from the originating TextScriptEvent. * scm/ly-syntax-constructors.scm (script-to-mmrest-text): read 'origin, copy to new event --- scm/ly-syntax-constructors.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm index 2a2629fab3..565dfbb6a7 100644 --- a/scm/ly-syntax-constructors.scm +++ b/scm/ly-syntax-constructors.scm @@ -121,16 +121,17 @@ (make-repeat type num body alts)) (define (script-to-mmrest-text music) - "Extract 'direction and 'text from SCRIPT-MUSIC, and transform MultiMeasureTextEvent" + "Extract @code{'direction} and @code{'text} from @var{music}, and transform +into a @code{MultiMeasureTextEvent}." (if (memq 'script-event (ly:music-property music 'types)) - - (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)))) + (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) -- 2.39.5