changeset 41962:68d5182dd369

Add Unicode equivalents.
author Dave Love <fx@gnu.org>
date Tue, 11 Dec 2001 18:00:08 +0000
parents 349eebfa4b1a
children 98c83c01f034
files lisp/language/thai-util.el lisp/language/thai.el
diffstat 2 files changed, 94 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/thai-util.el	Tue Dec 11 12:02:33 2001 +0000
+++ b/lisp/language/thai-util.el	Tue Dec 11 18:00:08 2001 +0000
@@ -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
--- a/lisp/language/thai.el	Tue Dec 11 12:02:33 2001 +0000
+++ b/lisp/language/thai.el	Tue Dec 11 18:00:08 2001 +0000
@@ -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)