X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fnote-names.ly;h=972ebb1d021a06119630c7093588c83247fd095f;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=c49b663e224d748b8cab749037aaa1f502fa4414;hpb=aa4bf973c439bca3dfdbd262c4a08b1a9c05ef9b;p=lilypond.git

diff --git a/input/regression/note-names.ly b/input/regression/note-names.ly
index c49b663e22..972ebb1d02 100644
--- a/input/regression/note-names.ly
+++ b/input/regression/note-names.ly
@@ -1,37 +1,28 @@
-\version "2.13.57"
+\version "2.19.38"
 
 \header {
-
-  texidoc = "
-    NoteNames context should be close to the related notes,
-    and should not collide with the tempo markings.
-  "
+  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.
+"
 }
 
-\paper {
-  system-system-spacing
-    #'basic-distance = #10 % increase this value for more space
-}
 
-notes = \relative c {
-  c'4 c c c
-}
+%% Old syntax.
+\include "english.ly"
 
-mylyrics = \lyricmode {
-  \tempo "Allegro"
-  ly -- ric ly -- ric
-}
+\relative {
+  g'4 bf d c
+
+  %% Manual override of the pitchnames variable
+  %% and the parser note names:
+  #(begin
+    (set! pitchnames (ly:assoc-get 'nederlands language-pitch-names))
+    (ly:parser-set-note-names pitchnames))
+  bes4 a g fis
 
-\score {
-  <<
-    \new Voice = "voice" {
-      \repeat unfold 13 \notes
-    }
-    \context NoteNames  {
-      \repeat unfold 13 \notes
-    }
-    \new Lyrics \lyricsto "voice" {
-      \repeat unfold 13 \mylyrics
-    }
-  >>
+  %% The \language command acts in the same way:
+  \language "français"
+  %% Accented characters are supported in some languages:
+  sol4 fa mib ré
 }