From: David Kastrup <dak@gnu.org>
Date: Thu, 18 Apr 2013 15:43:36 +0000 (+0200)
Subject: Eliminate inherit-[xy]-parent-visibility
X-Git-Tag: release/2.17.17-1~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8353c89bfc70b93c003a280022ca46bd95f6b6bc;p=lilypond.git

Eliminate inherit-[xy]-parent-visibility
---

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 9ec6f122ba..00ee2cf8e4 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -953,7 +953,8 @@
 	(annotation-balloon . #f)
 	(annotation-line . #t)
 	(automatically-numbered . ,(grob::calc-property-by-copy 'automatically-numbered))
-	(break-visibility . ,inherit-y-parent-visibility)
+	(break-visibility . ,(grob::inherit-parent-property
+                              X 'break-visibility))
 	(footnote . #t)
 	(footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
 	(stencil . ,ly:balloon-interface::print)
@@ -1619,7 +1620,8 @@
 
     (OctavateEight
      . (
-	(break-visibility . ,inherit-x-parent-visibility)
+	(break-visibility . ,(grob::inherit-parent-property
+                              X 'break-visibility))
 	(font-shape . italic)
 	(font-size . -4)
 	(self-alignment-X . ,CENTER)
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 7a20e32e90..0437d128a3 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -478,13 +478,6 @@ and duration-log @var{log}."
 (define-public center-visible          #(#f #t #f))
 (define-public end-of-line-visible     #(#t #f #f))
 (define-public all-invisible           #(#f #f #f))
-(define-public (inherit-x-parent-visibility grob)
-  (let ((parent (ly:grob-parent grob X)))
-    (ly:grob-property parent 'break-visibility all-invisible)))
-(define-public (inherit-y-parent-visibility grob)
-  (let ((parent (ly:grob-parent grob X)))
-    (ly:grob-property parent 'break-visibility)))
-
 
 (define-public spanbar-begin-of-line-invisible #(#t #f #f))