From: Valentin Villenave <valentin@villenave.net>
Date: Sat, 23 Oct 2010 23:49:11 +0000 (+0200)
Subject: Fix #903: minor addition
X-Git-Tag: release/2.13.37-1~16^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1f84e8613c950b773562b95d87c5e051c8016650;p=lilypond.git

Fix #903: minor addition

The 'pitchname variable is actually used by the parser and
the display-method thingy.  Therefore the \language command
should update it as well.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 6419b642e6..ad53afe592 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -383,10 +383,11 @@ language =
 			     #f)))
 
      (if extract-alist
-	 (begin
+	 (let ((lang-alist (eval-string extract-alist)))
 	   (if (ly:get-option 'verbose)
 	       (ly:message (_ "Using ~a note names...") str))
-	   (ly:parser-set-note-names parser (eval-string extract-alist)))
+	   (set! pitchnames lang-alist)
+	   (ly:parser-set-note-names parser lang-alist))
 	 (ly:error (_ "Cannot process ~a as a language file.
 Use \\include \"~a\" instead.") file-name file-name))
      make-void-music))