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.9-1~5^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2dad7be345ca1f4c04e836a56a9a66c0e340b39b;p=lilypond.git

string-tunings-init.ly: let \contextStringTunings affect only current context.
---

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index 0edc1cb424..5b2075db96 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 =