From: David Kastrup <dak@gnu.org>
Date: Thu, 18 Apr 2013 15:50:41 +0000 (+0200)
Subject: Eliminate grob::x-parent-width
X-Git-Tag: release/2.17.17-1~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=309687117b7a10b20cd958147174a906e308ccb6;p=lilypond.git

Eliminate grob::x-parent-width
---

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 00ee2cf8e4..6a1a5ce7f8 100644
--- 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 1d094172df..3348ca470d 100644
--- 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)