Add Unicode

equivalents.

3 files changed, 102 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4029019ffde..bd7496b855f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-12-11  Dave Love  <fx@gnu.org>
+
+        * language/thai-util.el, language/thai.el: Add Unicode
+        equivalents.
+
+        * language/european.el: Remove autoload cookies.  Fix registration
+        of diacritic composition function.
+
 2001-12-11  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
         * calendar/todo-mode.el: Require time-stamp.
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index d2e4e116f3a..35914c2cc5b 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -139,6 +139,95 @@
            (?,T|(B invalid nil)                                               ; 0xFC
            (?,T}(B invalid nil)                                               ; 0xFD
            (?,T~(B invalid nil)                                               ; 0xFE
+
+           ;; Unicode equivalents
+           (?$,1Ba(B consonant "LETTER KO KAI")
+           (?$,1Bb(B consonant "LETTER KHO KHAI")
+           (?$,1Bc(B consonant "LETTER KHO KHUAT")
+           (?$,1Bd(B consonant "LETTER KHO KHWAI")
+           (?$,1Be(B consonant "LETTER KHO KHON")
+           (?$,1Bf(B consonant "LETTER KHO RAKHANG")
+           (?$,1Bg(B consonant "LETTER NGO NGU")
+           (?$,1Bh(B consonant "LETTER CHO CHAN")
+           (?$,1Bi(B consonant "LETTER CHO CHING")
+           (?$,1Bj(B consonant "LETTER CHO CHANG")
+           (?$,1Bk(B consonant "LETTER SO SO")
+           (?$,1Bl(B consonant "LETTER CHO CHOE")
+           (?$,1Bm(B consonant "LETTER YO YING")
+           (?$,1Bn(B consonant "LETTER DO CHADA")
+           (?$,1Bo(B consonant "LETTER TO PATAK")
+           (?$,1Bp(B consonant "LETTER THO THAN")
+           (?$,1Bq(B consonant "LETTER THO NANGMONTHO")
+           (?$,1Br(B consonant "LETTER THO PHUTHAO")
+           (?$,1Bs(B consonant "LETTER NO NEN")
+           (?$,1Bt(B consonant "LETTER DO DEK")
+           (?$,1Bu(B consonant "LETTER TO TAO")
+           (?$,1Bv(B consonant "LETTER THO THUNG")
+           (?$,1Bw(B consonant "LETTER THO THAHAN")
+           (?$,1Bx(B consonant "LETTER THO THONG")
+           (?$,1By(B consonant "LETTER NO NU")
+           (?$,1Bz(B consonant "LETTER BO BAIMAI")
+           (?$,1B{(B consonant "LETTER PO PLA")
+           (?$,1B|(B consonant "LETTER PHO PHUNG")
+           (?$,1B}(B consonant "LETTER FO FA")
+           (?$,1B~(B consonant "LETTER PHO PHAN")
+           (?$,1B(B consonant "LETTER FO FAN")
+           (?$,1C (B consonant "LETTER PHO SAMPHAO")
+           (?$,1C!(B consonant "LETTER MO MA")
+           (?$,1C"(B consonant "LETTER YO YAK")
+           (?$,1C#(B consonant "LETTER RO RUA")
+           (?$,1C$(B vowel-base "LETTER RU (Pali vowel letter)")
+           (?$,1C%(B consonant "LETTER LO LING")
+           (?$,1C&(B vowel-base "LETTER LU (Pali vowel letter)")
+           (?$,1C'(B consonant "LETTER WO WAEN")
+           (?$,1C((B consonant "LETTER SO SALA")
+           (?$,1C)(B consonant "LETTER SO RUSI")
+           (?$,1C*(B consonant "LETTER SO SUA")
+           (?$,1C+(B consonant "LETTER HO HIP")
+           (?$,1C,(B consonant "LETTER LO CHULA")
+           (?$,1C-(B consonant "LETTER O ANG")
+           (?$,1C.(B consonant "LETTER HO NOK HUK")
+           (?$,1C/(B special "PAI YAN NOI (abbreviation)")
+           (?$,1C0(B vowel-base "VOWEL SIGN SARA A")
+           (?$,1C1(B vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T")
+           (?$,1C2(B vowel-base "VOWEL SIGN SARA AA")
+           (?$,1C3(B vowel-base "VOWEL SIGN SARA AM")
+           (?$,1C4(B vowel-upper "VOWEL SIGN SARA I N/S-T")
+           (?$,1C5(B vowel-upper "VOWEL SIGN SARA II N/S-T")
+           (?$,1C6(B vowel-upper "VOWEL SIGN SARA UE N/S-T")
+           (?$,1C7(B vowel-upper "VOWEL SIGN SARA UEE N/S-T")
+           (?$,1C8(B vowel-lower "VOWEL SIGN SARA U N/S-B")
+           (?$,1C9(B vowel-lower "VOWEL SIGN SARA UU N/S-B")
+           (?$,1C:(B vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)")
+           (?$,1C?(B special "BAHT SIGN (currency symbol)")
+           (?$,1C@(B vowel-base "VOWEL SIGN SARA E")
+           (?$,1CA(B vowel-base "VOWEL SIGN SARA AE")
+           (?$,1CB(B vowel-base "VOWEL SIGN SARA O")
+           (?$,1CC(B vowel-base "VOWEL SIGN SARA MAI MUAN")
+           (?$,1CD(B vowel-base "VOWEL SIGN SARA MAI MALAI")
+           (?$,1CE(B vowel-base "LAK KHANG YAO")
+           (?$,1CF(B special "MAI YAMOK (repetion)")
+           (?$,1CG(B vowel-upper "VOWEL SIGN MAI TAI KHU N/S-T")
+           (?$,1CH(B tone "TONE MAI EK N/S-T")
+           (?$,1CI(B tone "TONE MAI THO N/S-T")
+           (?$,1CJ(B tone "TONE MAI TRI N/S-T")
+           (?$,1CK(B tone "TONE MAI CHATTAWA N/S-T")
+           (?$,1CL(B tone "THANTHAKHAT N/S-T (cancellation mark)")
+           (?$,1CM(B tone "NIKKHAHIT N/S-T (final nasal)")
+           (?$,1CN(B vowel-upper "YAMAKKAN N/S-T")
+           (?$,1CO(B special "FONRMAN")
+           (?$,1CP(B special "DIGIT ZERO")
+           (?$,1CQ(B special "DIGIT ONE")
+           (?$,1CR(B special "DIGIT TWO")
+           (?$,1CS(B special "DIGIT THREE")
+           (?$,1CT(B special "DIGIT FOUR")
+           (?$,1CU(B special "DIGIT FIVE")
+           (?$,1CV(B special "DIGIT SIX")
+           (?$,1CW(B special "DIGIT SEVEN")
+           (?$,1CX(B special "DIGIT EIGHT")
+           (?$,1CY(B special "DIGIT NINE")
+           (?$,1CZ(B special "ANGKHANKHU (ellipsis)")
+           (?$,1C[(B special "KHOMUT (beginning of religious texts)")
            ))
       elm)
   (while l
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 7ba4043e105..30e1c194bd4 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -56,8 +56,11 @@
 
 
 ;; Register a function to compose Thai characters.
-(aset composition-function-table (make-char 'thai-tis620)
-      '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function)))
+(let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"
+                   . thai-composition-function))))
+  (aset composition-function-table (make-char 'thai-tis620) patterns)
+  (dotimes (i (1+ (- #xe7f #xe00)))
+    (aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns)))
 
 (provide 'thai)