This patch is meant to be a TEST ONLY of footnotes at the bottom of

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

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index f00273add6e236028ade8dffbe917d4f7d8d21d2..27c69fdfbe82eba10f1d3dcc20fe8156863c0926 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -244,6 +244,9 @@ and duration-log @var{log}."
 (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))