Commits

Aidan Kehoe  committed 7b87bc7

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.

  • Participants
  • Parent commits 3ccb4aa

Comments (0)

Files changed (2)

File lisp/ChangeLog

+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):

File lisp/mule/latin.el

                    (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