From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 12 Dec 2006 16:25:18 +0000 (+0100)
Subject: fix typo in banjo SCM code. Add regtest.
X-Git-Tag: release/2.11.2-1~1
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=69db1861b7a13e3e4a081005bc0121816af0b406;p=lilypond.git

fix typo in banjo SCM code. Add regtest.
---

diff --git a/input/regression/tablature-banjo.ly b/input/regression/tablature-banjo.ly
new file mode 100644
index 0000000000..7e8dea3013
--- /dev/null
+++ b/input/regression/tablature-banjo.ly
@@ -0,0 +1,18 @@
+\version "2.10.0"
+
+\header
+{
+  texidoc = "Tablature may also be tuned for banjo."
+}
+
+\new TabStaff <<
+  \set TabStaff.tablatureFormat = #fret-number-tablature-format-banjo
+  \set TabStaff.stringTunings = #banjo-open-g-tuning
+  {
+    \stemDown
+    g8 d' g'\5 a b g e d' |
+    g4 d''8\5 b' a'\2 g'\5 e'\2 d' |
+    g4
+  }
+>>
+
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 9075abd86f..91e5c42e25 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -87,7 +87,7 @@
 (define-public (fret-number-tablature-format-banjo string 
 					     context event)
   (let*
-      ((tuning (ly:context-property context 'stringTuning))
+      ((tuning (ly:context-property context 'stringTunings))
        (pitch (ly:event-property event 'pitch))
 	)
   (make-whiteout-markup