# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1375692994 -3600
# Node ID 7b87bc73f79670c0031e74de94f619d6648756b4
# Parent  3ccb4aaf91c7e4331fc57f45688619824380dcc6
Add a language environment for Azeri.

lisp/ChangeLog addition:

2013-08-05  Aidan Kehoe  <kehoea@parhasard.net>

	* mule/latin.el:
	Add a Latin-script Azeri language environment, with UTF-8 as the
	encoding and case information for schwa.

diff -r 3ccb4aaf91c7 -r 7b87bc73f796 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jul 28 02:46:02 2013 +0900
+++ b/lisp/ChangeLog	Mon Aug 05 09:56:34 2013 +0100
@@ -1,3 +1,9 @@
+2013-08-05  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule/latin.el:
+	Add a Latin-script Azeri language environment, with UTF-8 as the
+	encoding and case information for schwa.
+
 2013-06-22  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* paragraphs.el (sentence-end-base):
diff -r 3ccb4aaf91c7 -r 7b87bc73f796 lisp/mule/latin.el
--- a/lisp/mule/latin.el	Sun Jul 28 02:46:02 2013 +0900
+++ b/lisp/mule/latin.el	Mon Aug 05 09:56:34 2013 +0100
@@ -1778,7 +1778,20 @@
                    (lambda ()
                      ;; Restore the normal case mappings for the characters.
                      (put-case-table-pair ?I ?i (standard-case-table))))
+
+;; Latin-script Azeri. This uses schwa, and has no non-Unicode encoding
+;; available. The Turkish case rules apply, though, so we can copy that
+;; language environment.
 
+(let* ((name (create-variant-language-environment "Turkish" 'utf-8))
+       (assoc (assoc name language-info-alist)))
+  (setf (car assoc) "Azeri")
+  (set-language-info "Azeri" 'locale "az")
+  (put-case-table-pair
+   (decode-char 'ucs #x018F) ;; LATIN CAPITAL LETTER SCHWA
+   (decode-char 'ucs #x0259) ;; LATIN SMALL LETTER SCHWA
+   (standard-case-table)))
+
 (make-coding-system
  'macintosh 'fixed-width "MacRoman"
  '(unicode-map