From 48874ad4fd02df50bd8437e21f91af838bc0eb9d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Benk=C5=91=20P=C3=A1l?= Date: Wed, 15 Aug 2012 21:33:04 +0200 Subject: [PATCH] make staff-symbol-line-span work for staves not containing 0 --- scm/bar-line.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/scm/bar-line.scm b/scm/bar-line.scm index 530bca3250..30341439ad 100644 --- a/scm/bar-line.scm +++ b/scm/bar-line.scm @@ -51,10 +51,13 @@ (iv (cons 0.0 0.0))) (if (pair? line-pos) - (map (lambda (x) - (set! iv (cons (min (car iv) x) - (max (cdr iv) x)))) - line-pos) + (begin + (set! iv (cons (car line-pos) (car line-pos))) + (map (lambda (x) + (set! iv (cons (min (car iv) x) + (max (cdr iv) x)))) + (cdr line-pos))) + (let ((line-count (ly:grob-property grob 'line-count 0))) (set! iv (cons (- 1 line-count) -- 2.39.5