Add native utf8-coded aliases for note names language

[lilypond.git] / scm / define-note-names.scm

diff --git a/scm/define-note-names.scm b/scm/define-note-names.scm
index fbef9183f8eb9f285b249c26f211367c86c71a72..f8b6dad6a49e89a3b69c6e88988d36a8ca13d2ef 100644 (file)
--- a/scm/define-note-names.scm
+++ b/scm/define-note-names.scm
@@ -958,6 +958,15 @@
               ))
     ))
 
+;; add two native utf-8 aliases. Pairs obey cp-like order: '(old new)
+(map (lambda (pair)
+       (set! language-pitch-names
+             (append language-pitch-names
+                     (list (cons (cadr pair)
+                                 (cdr (assoc (car pair) language-pitch-names)))))))
+     '((espanol español)
+       (italiano français)))
+
 (define-public (note-names-language parser str)
   (_ "Select note names language.")
   (let ((alist (assoc-get (string->symbol str)