From: Valentin Villenave <valentin@villenave.net>
Date: Sun, 24 Oct 2010 01:57:49 +0000 (+0200)
Subject: Add note names regtest.
X-Git-Tag: release/2.13.37-1~16^2~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9e3d1968ffbbbdb60c06468dbdc30f6163dbe01b;p=lilypond.git

Add note names regtest.
---

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"