From f0cd2f7e65a3af000a6001298fd820dda85f6d7a Mon Sep 17 00:00:00 2001
From: Francisco Vila <francisco.vila@hispalinux.es>
Date: Wed, 31 Oct 2012 13:45:53 +0100
Subject: [PATCH] Add native utf8-coded aliases for note names language
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

  español in Spanish for espanol,
  français in French for italiano.
---
 scm/define-note-names.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

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)
-- 
2.39.2