Breakable markups with \markuplines.

[lilypond.git] / lily / text-interface.cc

diff --git a/lily/text-interface.cc b/lily/text-interface.cc
index 55e7bb7ec4c09a81ed73185271ef0c00a3ab3ef3..0c514a35d8aec694612fdb288a4a25c5c991c1ea 100644 (file)
--- 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}. "