X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-column.cc;h=c6b7c9c85c1aec0f9f5f9957937bd2b785f6b495;hb=0387f04497978e37b335a8b99eec905499d6ad0f;hp=b30c7de32fec89688d4e0d5e2b0893bca07bc73c;hpb=50840d0a9b8be36209d823d47bfcfd73860b2a5e;p=lilypond.git

diff --git a/lily/paper-column.cc b/lily/paper-column.cc
index b30c7de32f..c6b7c9c85c 100644
--- a/lily/paper-column.cc
+++ b/lily/paper-column.cc
@@ -18,6 +18,7 @@
 #include "output-def.hh"
 #include "paper-score.hh"
 #include "pointer-group-interface.hh"
+#include "rhythmic-head.hh"
 #include "separation-item.hh"
 #include "skyline-pair.hh"
 #include "spaceable-grob.hh"
@@ -313,6 +314,33 @@ Paper_column::before_line_breaking (SCM grob)
   return SCM_UNSPECIFIED;
 }
 
+/* FIXME: This is a hack that we use to identify columns that used to
+   contain note-heads but whose note-heads were moved by one of the ligature
+   engravers. Once the ligature engravers are fixed to behave nicely, this
+   function can be removed.
+*/
+bool
+Paper_column::is_extraneous_column_from_ligature (Grob *me)
+{
+  if (!is_musical (me))
+    return false;
+
+  // If all the note-heads that I think are my children actually belong
+  // to another column, then I am extraneous.
+  extract_grob_set (me, "elements", elts);
+  bool has_notehead = false;
+  for (vsize i = 0; i < elts.size (); i++)
+    {
+      if (Rhythmic_head::has_interface (elts[i]))
+	{
+	  has_notehead = true;
+	  if (dynamic_cast<Item*> (elts[i])->get_column () == me)
+	    return false;
+	}
+    }
+  return has_notehead;
+}
+
 
 ADD_INTERFACE (Paper_column,
 	       "@code{Paper_column} objects form the top-most X@tie{}parents"