Add note names regtest.

diff --git a/input/regression/note-names.ly b/input/regression/note-names.ly
new file mode 100644 (file)
index 0000000..eb0e1ec
--- /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 54aa7121e2ec6c1fe037da8ac4068b2a291ae86d..76908833f219c994805e6cfa7518e9964b338fac 100644 (file)
--- 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"