X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fslur.cc;h=3b26af8bebabb63b83ba8c965cbf5687e45b696d;hb=e9a308e9c6002900fc336733950a0175bcbcc333;hp=9ce45e61f59bbd515522d72f59eb306ad25cf6f5;hpb=e6bb963f4341cbd6f7c8bda2e608715d271492d1;p=lilypond.git

diff --git a/lily/slur.cc b/lily/slur.cc
index 9ce45e61f5..3b26af8beb 100644
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -356,6 +356,20 @@ Slur::auxiliary_acknowledge_extra_object (Grob_info const &info,
     e->warning ("Ignoring grob for slur. avoid-slur not set?");
 }
 
+MAKE_SCHEME_CALLBACK (Slur, cross_staff, 1)
+SCM
+Slur::cross_staff (SCM smob)
+{
+  Grob *me = unsmob_grob (smob);
+  Grob *staff = Staff_symbol_referencer::get_staff_symbol (me);
+  assert (staff); // delete me
+  extract_grob_set (me, "note-columns", cols);
+
+  for (vsize i = 0; i < cols.size (); i++)
+    if (Staff_symbol_referencer::get_staff_symbol (cols[i]) != staff)
+      return SCM_BOOL_T;
+  return SCM_BOOL_F;
+}
 
 ADD_INTERFACE (Slur,