Eliminate grob::x-parent-width

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 00ee2cf8e45ce1986aea1599e73597426db897ab..6a1a5ce7f814945a1584b2c91058c96ccbc1f0d2 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1995,7 +1995,8 @@
 
     (SpanBarStub
      . (
-        (X-extent . ,grob::x-parent-width)
+        (X-extent . ,(grob::inherit-parent-property
+                      X 'X-extent))
        (extra-spacing-height . ,pure-from-neighbor-interface::extra-spacing-height)
        ; we want this to be ignored, so empty, but the extra spacing height
        ; should preserve the span bar's presence for horizontal spacing

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 1d094172df7cfb17336ec3eae0e74830a63fab3c..3348ca470df0011e8140ad15b5575254994f136a 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -26,9 +26,6 @@
 (define-public (grob::is-live? grob)
   (pair? (ly:grob-basic-properties grob)))
 
-(define-public (grob::x-parent-width grob)
-  (ly:grob-property (ly:grob-parent grob X) 'X-extent))
-
 (define-public (make-stencil-boxer thickness padding callback)
   "Return function that adds a box around the grob passed as argument."
   (lambda (grob)