From: Graham Percival <graham@percival-music.ca>
Date: Thu, 1 Sep 2011 06:55:45 +0000 (+0100)
Subject: Revert "string-tunings-init.ly: let \contextStringTunings affect only current context."
X-Git-Tag: release/2.15.10-1~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=01947935f11a5b58abfb69810e11b7d25da1a31c;p=lilypond.git

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

This reverts commit e9c349044ed55d2fc63865c57335a6da25af7fa1.

I'm sorry, but I still cannot build git master from scratch when I
have this commit attached.  Please discuss the situation on
lilypond-devel, and put an updated patch on Rietveld so that James
can test the build.
---

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index 1b6e96f16e..0edc1cb424 100644
--- a/ly/string-tunings-init.ly
+++ b/ly/string-tunings-init.ly
@@ -57,9 +57,12 @@ 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.")
-  (chord->tuning parser tuning chord)
-  #{ \set stringTunings #(ly:parser-lookup $parser $tuning)
-  #})
+   (begin
+     (chord->tuning parser tuning chord)
+     #{
+        \set TabStaff.stringTunings = $(ly:parser-lookup parser tuning)
+        \set FretBoards.stringTunings = $(ly:parser-lookup parser tuning)
+     #}))
 
 %% A music function for converting an alist to string-tunings
 makeDefaultStringTunings =