From: David Kastrup <dak@gnu.org>
Date: Thu, 1 Aug 2013 15:33:03 +0000 (+0200)
Subject: Issue 3484: Give input location for "No string for pitch ..." warning
X-Git-Tag: release/2.17.24-1~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f8d17f1f0f891280bb7d3ee498c3ba175ae4343a;p=lilypond.git

Issue 3484: Give input location for "No string for pitch ..." warning
---

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)