From f0ab068ce6238d0cfb99562ea8af310ad78f12b2 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 25 Mar 2007 23:28:23 -0300
Subject: [PATCH] Fix collision-dots-move.ly

Add all note heads of a meshing chord to dot column support.
---
 lily/note-collision.cc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lily/note-collision.cc b/lily/note-collision.cc
index 23e3f98e01..be69b231f2 100644
--- a/lily/note-collision.cc
+++ b/lily/note-collision.cc
@@ -306,7 +306,12 @@ check_meshing_chords (Grob *me,
 	far to the right.
       */
       if (Dot_column::has_interface (parent))
-	Side_position_interface::add_support (parent, nu);
+	{
+	  Grob *stem = unsmob_grob (nu->get_object ("stem"));
+	  extract_grob_set (stem, "note-heads", heads);
+	  for (vsize i = 0; i < heads.size (); i++)
+	    Side_position_interface::add_support (parent, heads[i]);
+	}
     }
 
   Direction d = UP;
-- 
2.39.5