From: Benkő Pál <benko.pal@gmail.com>
Date: Wed, 15 Aug 2012 19:33:04 +0000 (+0200)
Subject: make staff-symbol-line-span work for staves not containing 0
X-Git-Tag: release/2.17.6-1~46^2~3^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=48874ad4fd02df50bd8437e21f91af838bc0eb9d;p=lilypond.git

make staff-symbol-line-span work for staves not containing 0
---

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)