From ef98514e6520fecb771d28d4d64329b2fe33a7e4 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Tue, 8 Dec 2015 21:42:18 +0100 Subject: [PATCH] Issue 4686: Don't hardwire usable size of StrokeFinger.digit-names vector --- scm/output-lib.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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))))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2