From: David Kastrup <dak@gnu.org>
Date: Tue, 4 Aug 2015 15:30:15 +0000 (+0200)
Subject: Export markup-function? and markup-list-function?
X-Git-Tag: release/2.19.26-1~56
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7f201bcf3ff9112757a10cc606d9794957ed18a4;p=lilypond.git

Export markup-function? and markup-list-function?
---

diff --git a/scm/markup-macros.scm b/scm/markup-macros.scm
index 09ab0fc8f2..6c50ec5128 100644
--- a/scm/markup-macros.scm
+++ b/scm/markup-macros.scm
@@ -236,11 +236,11 @@ interpreted, returns a list of stencils instead of a single one"
 ;;;;;;;;;;;;;;;;;;;;;;
 ;;; markup type predicates
 
-(define (markup-function? x)
+(define-public (markup-function? x)
   (and (markup-command-signature x)
        (not (object-property x 'markup-list-command))))
 
-(define (markup-list-function? x)
+(define-public (markup-list-function? x)
   (and (markup-command-signature x)
        (object-property x 'markup-list-command)))