Eliminate inherit-[xy]-parent-visibility

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 9ec6f122ba9ad7d7e902441da05d0efe6ae5d24d..00ee2cf8e45ce1986aea1599e73597426db897ab 100644 (file)
--- 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 7a20e32e90fc22195ea6270a1235d9ba643b9816..0437d128a3d4c013d833eb5f81fa390dfa7de5aa 100644 (file)
--- 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))