From 9e3d1968ffbbbdb60c06468dbdc30f6163dbe01b Mon Sep 17 00:00:00 2001
From: Valentin Villenave <valentin@villenave.net>
Date: Sun, 24 Oct 2010 03:57:49 +0200
Subject: [PATCH] Add note names regtest.

---
 input/regression/note-names.ly | 28 ++++++++++++++++++++++++++++
 ly/declarations-init.ly        |  2 ++
 2 files changed, 30 insertions(+)
 create mode 100644 input/regression/note-names.ly

diff --git a/input/regression/note-names.ly b/input/regression/note-names.ly
new file mode 100644
index 0000000000..eb0e1ec9ee
--- /dev/null
+++ b/input/regression/note-names.ly
@@ -0,0 +1,28 @@
+
+\header
+{
+  texidoc = "Various languages are supported for note names input.
+Selecting another language within a music expression is possible,
+and doesn't break point-and-click abilities.
+"
+}
+
+\version "2.13.37"
+
+\include "english.ly"
+
+\relative c'' {
+  g bf d c
+
+  %% nederlands.ly is loaded by default, so the
+  %% dutchPitchnames variable is already defined.
+  #(begin
+    (set! pitchnames dutchPitchnames)
+    (ly:parser-set-note-names parser dutchPitchnames))
+  bes a g fis
+
+  %% The \language command just retrieves a pitches alist
+  %% from the relevant file, and sets pitchnames accordingly.
+  \language "italiano"
+  sol fa mib re
+}
\ No newline at end of file
diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
index 54aa7121e2..76908833f2 100644
--- a/ly/declarations-init.ly
+++ b/ly/declarations-init.ly
@@ -30,6 +30,8 @@ maxima = #(ly:make-duration -3 0)
 \include "toc-init.ly"
 
 %% default note names are dutch
+%% This also initializes the pitchnames variable,
+%% so we don't want to use \language here.
 \include "nederlands.ly"
 
 \include "drumpitch-init.ly"
-- 
2.39.5