X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fbar-line.scm;h=e23ff8c0f250f5d5fe92af36442372484ee22350;hb=bd599be12a872b9ca95ebc78e0880e2d13c26b4f;hp=8ac123e11e9f9d7bedfef87a7c3e2ed835e7c260;hpb=388e8d25163ff696be7df9dc3415746f1f0392c7;p=lilypond.git diff --git a/scm/bar-line.scm b/scm/bar-line.scm index 8ac123e11e..e23ff8c0f2 100644 --- a/scm/bar-line.scm +++ b/scm/bar-line.scm @@ -68,13 +68,6 @@ Pad the string with @code{annotation-char}s to the length of the blot-diameter)) -(define (layout-line-thickness grob) - "Get the line thickness of the @var{grob}'s corresponding layout." - (let* ((layout (ly:grob-layout grob)) - (line-thickness (ly:output-def-lookup layout 'line-thickness))) - - line-thickness)) - (define (staff-symbol-line-count staff) "Get or compute the number of lines of staff @var{staff}." (let ((line-count 0))