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 aa87f9978c3ac0ace19b003a34180d2b47ff92f7..fd3c8b263adaaaad69ddcec130bc3bd0d24c6b6c 100644 (file)
--- 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))