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

Corrected and tested version of reverted patch.

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index 0edc1cb4248045ee675f8d4872586fbe5eeca0d2..1b6e96f16edeb8bcceccd77fc36c17ac3ac8ae7e 100644 (file)
--- 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 =