From: Francisco Vila <francisco.vila@hispalinux.es>
Date: Wed, 31 Oct 2012 12:45:53 +0000 (+0100)
Subject: Add native utf8-coded aliases for note names language
X-Git-Tag: release/2.17.7-1~7
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=f0cd2f7e65a3af000a6001298fd820dda85f6d7a;p=lilypond.git

Add native utf8-coded aliases for note names language

  español in Spanish for espanol,
  français in French for italiano.
---

diff --git a/scm/define-note-names.scm b/scm/define-note-names.scm
index fbef9183f8..f8b6dad6a4 100644
--- 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)