From 9460dc386c9b3500d62dbb0b10a45c39aaefba71 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 24 Mar 2017 00:30:40 +0100 Subject: [PATCH] Issue 5105/2: Let \displayLilyMusic accept numbered marks --- scm/define-music-display-methods.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) -- 2.39.2