X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftext-interface.cc;h=0c514a35d8aec694612fdb288a4a25c5c991c1ea;hb=ca91e9064f2920586a4fd610bda911ab3b4d8793;hp=55e7bb7ec4c09a81ed73185271ef0c00a3ab3ef3;hpb=fa8f0355e0403afb3190016c9dd11d25ba52a9b7;p=lilypond.git

diff --git a/lily/text-interface.cc b/lily/text-interface.cc
index 55e7bb7ec4..0c514a35d8 100644
--- a/lily/text-interface.cc
+++ b/lily/text-interface.cc
@@ -96,6 +96,14 @@ Text_interface::is_markup (SCM x)
 				      ly_symbol2scm ("markup-signature"))));
 }
 
+bool
+Text_interface::is_markup_list (SCM x)
+{
+  SCM music_list_p = ly_lily_module_constant ("markup-list?");
+  return scm_is_true (scm_call_1 (music_list_p, x));
+}
+
+
 ADD_INTERFACE (Text_interface,
 	       "A scheme markup text, see @usermanref{Text markup} and "
 	       "@usermanref{New markup command definition}. "