Mercurial > emacs
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)