X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fside-position-interface.cc;h=e68aaf660a4456b815870e6a2dfc76acdbd01cfc;hb=667d9bdb6227dd10819599c6d069a5eeb67eedd7;hp=825f7a2afd310e49e8882f23c44ec86ab93116bd;hpb=c123e540a84e2785cb862649d480f65718ee8eb7;p=lilypond.git

diff --git a/lily/side-position-interface.cc b/lily/side-position-interface.cc
index 825f7a2afd..e68aaf660a 100644
--- a/lily/side-position-interface.cc
+++ b/lily/side-position-interface.cc
@@ -67,7 +67,7 @@ Side_position_interface::aligned_on_support_extents (SCM element_smob, SCM axis)
 SCM
 Side_position_interface::general_side_position (Grob * me, Axis a, bool use_extents)
 {
-  Grob *common = me->get_parent (a);
+
 
   /*
     As this is only used as a callback, this is called only once. We
@@ -79,13 +79,7 @@ Side_position_interface::general_side_position (Grob * me, Axis a, bool use_exte
     
   */
   SCM support = me->get_grob_property ("side-support-elements");
-    // me->remove_grob_property ("side-support-elements");
-  for (SCM s = support; s != SCM_EOL; s = ly_cdr (s))
-    {
-      Grob * e  = unsmob_grob (ly_car (s));
-      if (e)
-	common = common->common_refpoint (e, a);
-    }
+  Grob *common = common_refpoint_of_list (support, me->get_parent (a), a);
   
   Interval dim;
   for (SCM s = support; s != SCM_EOL; s = ly_cdr (s))