From: David Kastrup <dak@gnu.org>
Date: Thu, 23 Jul 2015 18:01:13 +0000 (+0200)
Subject: display-lily.scm: export with-music-match
X-Git-Tag: release/2.19.25-1~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=aa1758a0d2f9c82f154128873929e62f4ccb5af2;p=lilypond.git

display-lily.scm: export with-music-match
---

diff --git a/scm/display-lily.scm b/scm/display-lily.scm
index e591d50b1d..6a53f1eded 100644
--- a/scm/display-lily.scm
+++ b/scm/display-lily.scm
@@ -248,7 +248,7 @@ Generate binding forms by looking for ?var symbol in pattern."
                                  (cdr prop-elements))))
                  elements-list))))
 
-(define-macro (with-music-match music-expr+pattern . body)
+(defmacro-public with-music-match (music-expr+pattern . body)
   "If `music-expr' matches `pattern', call `body'.  `pattern' should look like:
   '(music <MusicType>
      property value