From: David Kastrup <dak@gnu.org>
Date: Tue, 8 Dec 2015 20:42:18 +0000 (+0100)
Subject: Issue 4686: Don't hardwire usable size of StrokeFinger.digit-names vector
X-Git-Tag: release/2.19.34-1~5^2~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ef98514e6520fecb771d28d4d64329b2fe33a7e4;p=lilypond.git

Issue 4686: Don't hardwire usable size of StrokeFinger.digit-names vector
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 1dbf4ab7ae..dcec6ae939 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -1121,9 +1121,11 @@ If @var{data} is @code{#f} or @code{'()}, it is not included in the sum."
 (define-public (stroke-finger::calc-text grob)
   (let ((event (event-cause grob)))
     (or (ly:event-property event 'text #f)
-        (vector-ref (ly:grob-property grob 'digit-names)
-                    (1- (max 1
-                             (min 5 (ly:event-property event 'digit))))))))
+        (let ((digit-names (ly:grob-property grob 'digit-names)))
+          (vector-ref digit-names
+                      (1- (max 1
+                               (min (vector-length digit-names)
+                                    (ly:event-property event 'digit)))))))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;