Mercurial > hg > xemacs-beta

changeset 5749:7b87bc73f796

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 05 Aug 2013 09:56:34 +0100
parents 3ccb4aaf91c7
children 66d2f63df75f
files lisp/ChangeLog lisp/mule/latin.el
diffstat 2 files changed, 19 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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):
--- 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