mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Add Unicode

Browse source 
equivalents.
This commit is contained in:
Dave Love 2001-12-11 18:00:45 +00:00
parent 4efe23fc4c
commit 2c974b151e
3 changed files with 102 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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.

89
lisp/language/thai-util.el
View file

@ -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

7
lisp/language/thai.el
View file

@ -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)