X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fpart-combine-music.cc;h=155f2de24cd102cf7e66ec4cb21671191c3f01c8;hb=f2f5eb23db6c2daf882957dcfe472657c8bdb1b6;hp=c6ee7713043c36f271f20a362623d6093795c281;hpb=dcb8f596283022b8fdc4385c5f9f72d48c6b46fa;p=lilypond.git

diff --git a/lily/part-combine-music.cc b/lily/part-combine-music.cc
index c6ee771304..155f2de24c 100644
--- 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