From f8d17f1f0f891280bb7d3ee498c3ba175ae4343a Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 1 Aug 2013 17:33:03 +0200 Subject: [PATCH] Issue 3484: Give input location for "No string for pitch ..." warning --- scm/translation-functions.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm index bc988ebd5a..5d40da8cfa 100644 --- a/scm/translation-functions.scm +++ b/scm/translation-functions.scm @@ -464,9 +464,11 @@ the current tuning?" (if fit-string (set-fret! pitch-entry fit-string finger) (begin - (ly:warning (_ "No string for pitch ~a (given frets ~a)") - pitch - specified-frets) + (ly:event-warning + (list-ref notes (cdr pitch-entry)) + (_ "No string for pitch ~a (given frets ~a)") + pitch + specified-frets) (kill-note! string-fret-fingers (cdr pitch-entry))))))) (sort pitch-alist (lambda (pitch-entry-a pitch-entry-b) -- 2.39.5