From: David Kastrup <dak@gnu.org>
Date: Thu, 23 Mar 2017 23:30:40 +0000 (+0100)
Subject: Issue 5105/2: Let \displayLilyMusic accept numbered marks
X-Git-Url: https://git.donarmstrong.com/?p=lilypond.git;a=commitdiff_plain;h=9460dc386c9b3500d62dbb0b10a45c39aaefba71

Issue 5105/2: Let \displayLilyMusic accept numbered marks
---

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index aa87f9978c..fd3c8b263a 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -537,10 +537,9 @@ expression."
   (music->lily-string (ly:music-property chord 'element)))
 
 (define-display-method MarkEvent (mark)
-  (let ((label (ly:music-property mark 'label)))
-    (if (null? label)
-        "\\mark \\default"
-        (format #f "\\mark ~a" (markup->lily-string label)))))
+  (let ((label (ly:music-property mark 'label #f)))
+    (string-append "\\mark "
+                   (if label (value->lily-string label) "\\default"))))
 
 (define-display-method KeyChangeEvent (key)
   (let ((pitch-alist (ly:music-property key 'pitch-alist))