X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Ftext-interface.cc;h=fc797073734cbc405183f42cd112fc0f607619e2;hb=8659a99f233f5c4684292728e7ad4206669b35b0;hp=bad6d50281f626ccce966a8e15200b9a4f80ea8d;hpb=13798e90e8ae32bf341b21440f2687442274759f;p=lilypond.git

diff --git a/lily/text-interface.cc b/lily/text-interface.cc
index bad6d50281..fc79707373 100644
--- a/lily/text-interface.cc
+++ b/lily/text-interface.cc
@@ -210,14 +210,9 @@ Text_interface::is_markup (SCM x)
 {
   return scm_is_string (x)
     || (scm_is_pair (x)
-        && scm_is_true
-        (scm_object_property (scm_car (x),
-                              ly_symbol2scm ("markup-signature")))
-        && scm_is_false
-        (scm_object_property (scm_car (x),
-                              ly_symbol2scm ("markup-list-command"))));
+        && scm_is_true (Lily::markup_command_signature (scm_car (x)))
+        && scm_is_false (Lily::markup_list_function_p (scm_car (x))));
 }
-
 bool
 Text_interface::is_markup_list (SCM x)
 {