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 6419b642e6e91b4d217f0142bb328b4938c86076..ad53afe592f626f3c0b092010846ca429ac8bac0 100644 (file)
--- 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))