dot-column.cc: avoid Flags, now distinct from Stems

diff --git a/input/regression/dot-up-voice-collision.ly b/input/regression/dot-up-voice-collision.ly
index 72eb56cc59427aaa2dc890dc1edd22d5c0c32c06..329f5bbcf8112246d52ebe6bdc1a688a3e1b3a9b 100644 (file)
--- a/input/regression/dot-up-voice-collision.ly
+++ b/input/regression/dot-up-voice-collision.ly
@@ -1,7 +1,7 @@
 \header {
 
-  texidoc = "in collisions, the stems of outer voice are added to the
-  dot support of the inner voices."
+  texidoc = "in collisions, the dots of outer voices avoid
+  stems and flags of the inner voices."
 
 }
 
@@ -13,6 +13,6 @@
   \key e \major \time 3/4
   \relative c'' {
     << { dis4.  } \\
-       { fis,4 } \\ { b4 } >>
+       { fis,4 } \\ { b8 } >>
   }
 }

diff --git a/lily/dot-column.cc b/lily/dot-column.cc
index 03f368d76b50703cd49055d54820417ec3248f63..717b0bf19b55d9869dd5be6586ac9ec7945ad43f 100644 (file)
--- a/lily/dot-column.cc
+++ b/lily/dot-column.cc
@@ -109,6 +109,8 @@ Dot_column::calc_positioning_done (SCM smob)
 
           y.add_point (y1);
           y.add_point (y2);
+
+          stems.insert (s);
         }
       else if (Note_head::has_interface (s))
         y = Interval (-1, 1);