+ unsmob<Grob> (common),
+ (Axis) scm_to_int (axis));
+ return ly_interval2scm (ext);
+}
+
+LY_DEFINE (ly_generic_bound_extent, "ly:generic-bound-extent",
+ 2, 0, 0, (SCM grob, SCM common),
+ "Determine the extent of @var{grob} relative to @var{common} along"
+ " the X axis, finding its extent as a bound when it a has"
+ " @code{bound-alignment-interfaces} property list set and"
+ " otherwise the full extent.")
+{
+ LY_ASSERT_SMOB (Grob, grob, 1);
+ LY_ASSERT_SMOB (Grob, common, 2);
+
+ Interval ext = Axis_group_interface::generic_bound_extent (unsmob<Grob> (grob), unsmob<Grob> (common), X_AXIS);