From: Neil Puttock <n.puttock@gmail.com>
Date: Sun, 7 Aug 2011 16:36:55 +0000 (+0100)
Subject: Simplify syntax constructor for \mark.
X-Git-Tag: release/2.15.9-1~36
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5a370143ec8c33b1dc2c7d0e194896c50ac8b3ea;p=lilypond.git

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
---

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."