From: David Kastrup <dak@gnu.org>
Date: Fri, 3 Jun 2016 14:46:20 +0000 (+0200)
Subject: Issue 4879: Display \time beat structure as list
X-Git-Tag: release/2.19.43-1^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=339ead1a074ea4504ecc5d6d4f2d5561e2a0a567;p=lilypond.git

Issue 4879: Display \time beat structure as list

Example: \displayLilyMusic \time 1,2 3/4
---

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