From 5a370143ec8c33b1dc2c7d0e194896c50ac8b3ea Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Sun, 7 Aug 2011 17:36:55 +0100 Subject: [PATCH] Simplify syntax constructor for \mark. * scm/ly-syntax-constructors.scm (make-mark-set): don't wrap MarkEvent in EventChord since this prevents application of \tweak when \mark is used with markup set 'origin when creating MarkEvent --- scm/ly-syntax-constructors.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm index 171cee1240..5633ad84a1 100644 --- a/scm/ly-syntax-constructors.scm +++ b/scm/ly-syntax-constructors.scm @@ -243,15 +243,14 @@ into a @code{MultiMeasureTextEvent}." (let* ((set (and (integer? label) (context-spec-music (make-property-set 'rehearsalMark label) 'Score))) - (ev (make-music 'MarkEvent)) - (ch (make-event-chord (list ev)))) + (ev (make-music 'MarkEvent + 'origin location))) - (set! (ly:music-property ev 'origin) location) (if set - (make-sequential-music (list set ch)) + (make-sequential-music (list set ev)) (begin (set! (ly:music-property ev 'label) label) - ch)))) + ev)))) (define-ly-syntax (partial parser location dur) "Make a partial measure." -- 2.39.5