From: Neil Puttock <n.puttock@gmail.com>
Date: Sun, 26 Sep 2010 00:31:16 +0000 (+0100)
Subject: Ensure \displayMusic renders scheme args in markup correctly.
X-Git-Tag: release/2.13.35-1~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1af002a26299daf2881c28b3d8366a354cffa5da;p=lilypond.git

Ensure \displayMusic renders scheme args in markup correctly.

* scm/music-functions.scm (markup-expression->make-markup):

  funnel scheme arguments through music->make-music to handle quoting for
  lists and pairs
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 4a322b5b50..95587b8670 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -134,7 +134,7 @@ For instance,
 	  ((and (not (string? arg)) (markup? arg)) ;; a markup
 	   (inner-markup->make-markup arg))
 	  (else					 ;; scheme arg
-	   arg)))
+	   (music->make-music arg))))
   (define (inner-markup->make-markup mrkup)
     (if (string? mrkup)
 	`(#:simple ,mrkup)