patch::: 1.5.43.rz1: 1.5.43.rz1

[lilypond.git] / lily / translator-group.cc

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index 2938b2b7cd7b1cbdb3ca74a2d0c33db471410b8e..aee0c2309c1638d24e35ab2b2e6e6ec8858d5ac0 100644 (file)
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -312,6 +312,16 @@ Translator_group::internal_set_property (SCM sym, SCM val)
   properties_dict ()->set (sym, val);
 }
 
+void
+Translator_group::internal_set_children_property (SCM sym, SCM val)
+{
+  internal_set_property (sym, val);
+  for (SCM p = trans_group_list_; gh_pair_p (p); p = ly_cdr(p)) {
+    Translator_group *trg =  dynamic_cast<Translator_group*> (unsmob_translator (ly_car (p)));
+    trg->internal_set_children_property(sym,ly_deep_copy(val));
+  }
+}
+
 /*
   TODO: look up to check whether we have inherited var? 
  */