release: 1.3.95

[lilypond.git] / lily / part-combine-music.cc

diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index c6ee7713043c36f271f20a362623d6093795c281..155f2de24cd102cf7e66ec4cb21671191c3f01c8 100644 (file)
--- a/lily/part-combine-music.cc
+++ b/lily/part-combine-music.cc
@@ -18,6 +18,8 @@ Part_combine_music::Part_combine_music (String what, Music * f, Music * s)
 
   scm_unprotect_object (f->self_scm());
   scm_unprotect_object (s->self_scm());  
+
+  set_mus_property ("type", ly_symbol2scm ("part-combined-music"));
 }
 
 void