APPROVE COMMIT
NOTE: This patch has been committed.
# HG changeset patch
# User Aidan Kehoe <kehoea(a)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(a)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(a)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(a)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
--
‘Liston operated so fast that he once accidentally amputated an assistant’s
fingers along with a patient’s leg, […] The patient and the assistant both
died of sepsis, and a spectator reportedly died of shock, resulting in the
only known procedure with a 300% mortality.’ (Atul Gawande, NEJM, 2012)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches