Use callback to retrieve OctavateEight break-visibility from clef

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 6c10913d388718bfb91414107c41b132f0eb2885..292755e27e21a0ab7a76a8a008ce682164b9817e 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -234,6 +234,10 @@ 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 spanbar-begin-of-line-invisible #(#t #f #f))