* input/regression/accidental-clef-change.ly: new file.

[lilypond.git] / lily / context.cc

diff --git a/lily/context.cc b/lily/context.cc
index 1f086390d6c98716c14035be5432055ec4a2b420..7c26ae8e9625d69ccf524d32c542b2f358ae4c52 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -611,3 +611,15 @@ measure_position (Context const *context)
 
   return m;
 }
+
+
+void
+set_context_property_on_children (Context *trans, SCM sym, SCM val)
+{
+  trans->internal_set_property (sym, ly_deep_copy (val));
+  for (SCM p = trans->children_contexts (); scm_is_pair (p); p = scm_cdr (p))
+    {
+      Context *trg = unsmob_context (scm_car (p));
+      set_context_property_on_children (trg, sym, ly_deep_copy (val));
+    }
+}