X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fsuomi.ly;h=10e1cbf8cb29a0eb2e988ba13954feefd0ccae6e;hb=3bafaae8bf353619d2f97036e874f1c9cb787adf;hp=2dcb32e1a510f974bd22987dcb8d2f5fb0277bb4;hpb=10f0e1d58eda7e8d5f3e7d5613ca2d976620e434;p=lilypond.git

diff --git a/ly/suomi.ly b/ly/suomi.ly
index 2dcb32e1a5..10e1cbf8cb 100644
--- a/ly/suomi.ly
+++ b/ly/suomi.ly
@@ -6,7 +6,7 @@
 % 2001/08/28 Heikki Junes <<heikki.junes@hut.fi>>
 %            added bb and marked heses as `unusual'
 
-\pitchnames #`(
+pitchnamesSuomi = #`(
 	(ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 	(ces . ,(ly:make-pitch -1 0 FLAT))
 	(c . ,(ly:make-pitch -1 0 NATURAL))
@@ -38,11 +38,17 @@
 	(a . ,(ly:make-pitch -1 5 NATURAL))
 	(ais . ,(ly:make-pitch -1 5 SHARP))
 	(aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
-	(bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
+	(bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes. Kept for downwards compatibility
+	(bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 	(heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))  ;;non-standard name for bb
 	(b . ,(ly:make-pitch -1 6 FLAT))
 	(h . ,(ly:make-pitch -1 6 NATURAL))
 	(his . ,(ly:make-pitch -1 6 SHARP))
 	(hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 )
-\version "1.9.7"
+
+pitchnames = \pitchnamesSuomi
+
+\version "2.12.0"
+
+#(ly:parser-set-note-names parser pitchnames)