From: David Kastrup <dak@gnu.org>
Date: Mon, 29 Aug 2011 17:02:29 +0000 (+0200)
Subject: string-tunings-init.ly: let \contextStringTunings affect only current context.
X-Git-Tag: release/2.15.10-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f5647e3f12454fed076a673bfc8f7972cfd9a4c3;hp=f0d557033421e311064ce9f3e826476a632617c2;p=lilypond.git

string-tunings-init.ly: let \contextStringTunings affect only current context.
Corrected and tested version of reverted patch.

Fixed David's missing = sign.

Signed-off-by: Reinhold Kainhofer <reinhold@kainhofer.com>
---

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index 0edc1cb424..fade5dad32 100644
--- a/ly/string-tunings-init.ly
+++ b/ly/string-tunings-init.ly
@@ -57,12 +57,9 @@ newly-defined tuning.
 @{chord} must be in absolute pitches and should have the highest
 string number (generally the lowest pitch) first.  @code{tuning}
 should be a string that will be converted to a symbol.")
-   (begin
-     (chord->tuning parser tuning chord)
-     #{
-        \set TabStaff.stringTunings = $(ly:parser-lookup parser tuning)
-        \set FretBoards.stringTunings = $(ly:parser-lookup parser tuning)
-     #}))
+  (chord->tuning parser tuning chord)
+  #{ \set stringTunings = #(ly:parser-lookup $parser $tuning)
+  #})
 
 %% A music function for converting an alist to string-tunings
 makeDefaultStringTunings =