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 0edc1cb4248045ee675f8d4872586fbe5eeca0d2..fade5dad3209066fd1ccea41d8a18b46cbbd3aab 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 =