From 2dad7be345ca1f4c04e836a56a9a66c0e340b39b Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Mon, 29 Aug 2011 19:02:29 +0200
Subject: [PATCH] string-tunings-init.ly: let \contextStringTunings affect only
 current context.

---
 ly/string-tunings-init.ly | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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 =
-- 
2.39.5