X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpaper-system.scm;h=d414285d9df3d75a5dde138f8905343f5f7164a7;hb=96a2af1fa3b697b6bb45780d7ffe4affda8287ad;hp=70985aae6669d012d8ee6a54d7b8e2f76c4ef70a;hpb=34d3e5e54d8036b99e42cfb6079e1f349eeb801f;p=lilypond.git

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index 70985aae66..d414285d9d 100644
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -17,6 +17,9 @@
 (define-public (paper-system-stencil system)
   (ly:prob-property system 'stencil))
 
+(define-public (paper-system-system-grob paper-system)
+  (ly:prob-property paper-system 'system-grob))
+
 (define-public (paper-system-extent system axis)
   (ly:stencil-extent (paper-system-stencil system) axis))