Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / context.cc

diff --git a/lily/context.cc b/lily/context.cc
index 010e07798bd9521f7836288c58f854452a7fb0db..5e97a6171de24c24830548e4c141ed763d587dac 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -660,3 +660,16 @@ set_context_property_on_children (Context *trans, SCM sym, SCM val)
       set_context_property_on_children (trg, sym, ly_deep_copy (val));
     }
 }
+
+bool
+melisma_busy (Context *tr)
+{
+  SCM melisma_properties = tr->get_property ("melismaBusyProperties");
+  bool busy = false;
+
+  for (; scm_is_pair (melisma_properties);
+       melisma_properties = scm_cdr (melisma_properties))
+    busy = busy || to_boolean (tr->internal_get_property (scm_car (melisma_properties)));
+
+  return busy;
+}