From 339ead1a074ea4504ecc5d6d4f2d5561e2a0a567 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 3 Jun 2016 16:46:20 +0200
Subject: [PATCH] Issue 4879: Display \time beat structure as list
Example: \displayLilyMusic \time 1,2 3/4
---
scm/define-music-display-methods.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index a3b620469d..42637cd16c 100644
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -859,7 +859,11 @@ Otherwise, return #f."
num den
(new-line->lily-string))
(format #f
- "\\time #'~a ~a/~a~a"
+ ;; This is silly but the latter will also work for #f
+ ;; and other
+ (if (key-list? structure)
+ "\\time ~{~a~^,~} ~a/~a~a"
+ "\\time #'~a ~a/~a~a")
structure num den
(new-line->lily-string)))))
--
2.39.5