Mercurial > hg > xemacs-beta

comparison lisp/mule/thai.el @ 5396:75469840109b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Drop support for Thai-XTIS, which was always non-standard and never used. lisp/ChangeLog addition: 2011-04-08 Aidan Kehoe <kehoea@parhasard.net> * unicode.el (load-unicode-tables): No longer include thai-xtis in the default Unicode precedence list. * mule/thai.el: * mule/thai.el (tis-620): * mule/thai.el (windows-874): * mule/thai.el ("Thai"): Move the Thai language environment and the TIS-620 coding system to this file; add support for Microsoft's code page 874. * mule/thai-util.el: * mule/thai-xtis.el: Remove these two files; XTIS was always non-standard and was never widely implemented, and we've never supported the character composition necessary for thai-util.el. * dumped-lisp.el (preloaded-file-list): Drop thai-xtis, dump thai.el instead.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 08 Apr 2011 14:44:20 +0100
parents 2923009caf47
children 248176c74e6b
comparison
equal deleted inserted replaced
5395:ccf7e84fe265 5396:75469840109b
1 ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; -*- 1 ;;; thai.el --- support for Thai -*- coding: utf-8; -*-
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, Thai 6 ;; Keywords: multilingual, Thai
24 24
25 ;;; Synched up with: Emacs 21.1 (language/thai.el). 25 ;;; Synched up with: Emacs 21.1 (language/thai.el).
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; For Thai, the character set TIS620 is supported. 29 (make-coding-system
30 30 'tis-620 'fixed-width
31 ;; #### I don't know how this differs from the existing thai-xtis.el so 31 "TIS620 (Thai)"
32 ;; I'm leaving it commented out. 32 '(mnemonic "TIS620"
33 33 unicode-map
34 ;;; Code: 34 ((#x80 ?\u0080) ;; <control>
35 35 (#x81 ?\u0081) ;; <control>
36 ; (make-charset 'thai-tis620 36 (#x82 ?\u0082) ;; <control>
37 ; "Right-Hand Part of TIS620.2533 (Thai): ISO-IR-166" 37 (#x83 ?\u0083) ;; <control>
38 ; '(dimension 38 (#x84 ?\u0084) ;; <control>
39 ; 1 39 (#x85 ?\u0085) ;; <control>
40 ; registry "TIS620" 40 (#x86 ?\u0086) ;; <control>
41 ; chars 96 41 (#x87 ?\u0087) ;; <control>
42 ; columns 1 42 (#x88 ?\u0088) ;; <control>
43 ; direction l2r 43 (#x89 ?\u0089) ;; <control>
44 ; final ?T 44 (#x8A ?\u008A) ;; <control>
45 ; graphic 1 45 (#x8B ?\u008B) ;; <control>
46 ; short-name "RHP of TIS620" 46 (#x8C ?\u008C) ;; <control>
47 ; long-name "RHP of Thai (TIS620): ISO-IR-166" 47 (#x8D ?\u008D) ;; <control>
48 ; )) 48 (#x8E ?\u008E) ;; <control>
49 49 (#x8F ?\u008F) ;; <control>
50 ; ; (make-coding-system 50 (#x90 ?\u0090) ;; <control>
51 ; ; 'thai-tis620 2 ?T 51 (#x91 ?\u0091) ;; <control>
52 ; ; "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" 52 (#x92 ?\u0092) ;; <control>
53 ; ; '(ascii thai-tis620 nil nil 53 (#x93 ?\u0093) ;; <control>
54 ; ; nil ascii-eol) 54 (#x94 ?\u0094) ;; <control>
55 ; ; '((safe-charsets ascii thai-tis620) 55 (#x95 ?\u0095) ;; <control>
56 ; ; (post-read-conversion . thai-post-read-conversion))) 56 (#x96 ?\u0096) ;; <control>
57 57 (#x97 ?\u0097) ;; <control>
58 ; (make-coding-system 58 (#x98 ?\u0098) ;; <control>
59 ; 'thai-tis620 'iso2022 "Thai/TIS620" 59 (#x99 ?\u0099) ;; <control>
60 ; '(charset-g0 ascii 60 (#x9A ?\u009A) ;; <control>
61 ; charset-g1 thai-tis620 61 (#x9B ?\u009B) ;; <control>
62 ; mnemonic "Thai" 62 (#x9C ?\u009C) ;; <control>
63 ; safe-charsets (ascii thai-tis620) 63 (#x9D ?\u009D) ;; <control>
64 ; post-read-conversion thai-post-read-conversion 64 (#x9E ?\u009E) ;; <control>
65 ; documentation "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)")) 65 (#x9F ?\u009F) ;; <control>
66 66 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
67 ; (define-coding-system-alias 'th-tis620 'thai-tis620) 67 (#xA1 ?\u0E01) ;; THAI CHARACTER KO KAI
68 ; (define-coding-system-alias 'tis620 'thai-tis620) 68 (#xA2 ?\u0E02) ;; THAI CHARACTER KHO KHAI
69 ; (define-coding-system-alias 'tis-620 'thai-tis620) 69 (#xA3 ?\u0E03) ;; THAI CHARACTER KHO KHUAT
70 70 (#xA4 ?\u0E04) ;; THAI CHARACTER KHO KHWAI
71 ; (set-language-info-alist 71 (#xA5 ?\u0E05) ;; THAI CHARACTER KHO KHON
72 ; "Thai" '((tutorial . "TUTORIAL.th") 72 (#xA6 ?\u0E06) ;; THAI CHARACTER KHO RAKHANG
73 ; (charset thai-tis620) 73 (#xA7 ?\u0E07) ;; THAI CHARACTER NGO NGU
74 ; (coding-system thai-tis620) 74 (#xA8 ?\u0E08) ;; THAI CHARACTER CHO CHAN
75 ; (coding-priority thai-tis620) 75 (#xA9 ?\u0E09) ;; THAI CHARACTER CHO CHING
76 ; (nonascii-translation . thai-tis620) 76 (#xAA ?\u0E0A) ;; THAI CHARACTER CHO CHANG
77 ; (input-method . "thai-kesmanee") 77 (#xAB ?\u0E0B) ;; THAI CHARACTER SO SO
78 ; (unibyte-display . thai-tis620) 78 (#xAC ?\u0E0C) ;; THAI CHARACTER CHO CHOE
79 ; (features thai-util) 79 (#xAD ?\u0E0D) ;; THAI CHARACTER YO YING
80 ; (sample-text 80 (#xAE ?\u0E0E) ;; THAI CHARACTER DO CHADA
81 ; . (thai-compose-string 81 (#xAF ?\u0E0F) ;; THAI CHARACTER TO PATAK
82 ; (copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) 82 (#xB0 ?\u0E10) ;; THAI CHARACTER THO THAN
83 ; (documentation . t))) 83 (#xB1 ?\u0E11) ;; THAI CHARACTER THO NANGMONTHO
84 84 (#xB2 ?\u0E12) ;; THAI CHARACTER THO PHUTHAO
85 85 (#xB3 ?\u0E13) ;; THAI CHARACTER NO NEN
86 ;; Register a function to compose Thai characters. 86 (#xB4 ?\u0E14) ;; THAI CHARACTER DO DEK
87 ; (put-char-table 'thai-tis620 87 (#xB5 ?\u0E15) ;; THAI CHARACTER TO TAO
88 ; '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . 88 (#xB6 ?\u0E16) ;; THAI CHARACTER THO THUNG
89 ; thai-composition-function)) 89 (#xB7 ?\u0E17) ;; THAI CHARACTER THO THAHAN
90 ; composition-function-table) 90 (#xB8 ?\u0E18) ;; THAI CHARACTER THO THONG
91 (#xB9 ?\u0E19) ;; THAI CHARACTER NO NU
92 (#xBA ?\u0E1A) ;; THAI CHARACTER BO BAIMAI
93 (#xBB ?\u0E1B) ;; THAI CHARACTER PO PLA
94 (#xBC ?\u0E1C) ;; THAI CHARACTER PHO PHUNG
95 (#xBD ?\u0E1D) ;; THAI CHARACTER FO FA
96 (#xBE ?\u0E1E) ;; THAI CHARACTER PHO PHAN
97 (#xBF ?\u0E1F) ;; THAI CHARACTER FO FAN
98 (#xC0 ?\u0E20) ;; THAI CHARACTER PHO SAMPHAO
99 (#xC1 ?\u0E21) ;; THAI CHARACTER MO MA
100 (#xC2 ?\u0E22) ;; THAI CHARACTER YO YAK
101 (#xC3 ?\u0E23) ;; THAI CHARACTER RO RUA
102 (#xC4 ?\u0E24) ;; THAI CHARACTER RU
103 (#xC5 ?\u0E25) ;; THAI CHARACTER LO LING
104 (#xC6 ?\u0E26) ;; THAI CHARACTER LU
105 (#xC7 ?\u0E27) ;; THAI CHARACTER WO WAEN
106 (#xC8 ?\u0E28) ;; THAI CHARACTER SO SALA
107 (#xC9 ?\u0E29) ;; THAI CHARACTER SO RUSI
108 (#xCA ?\u0E2A) ;; THAI CHARACTER SO SUA
109 (#xCB ?\u0E2B) ;; THAI CHARACTER HO HIP
110 (#xCC ?\u0E2C) ;; THAI CHARACTER LO CHULA
111 (#xCD ?\u0E2D) ;; THAI CHARACTER O ANG
112 (#xCE ?\u0E2E) ;; THAI CHARACTER HO NOKHUK
113 (#xCF ?\u0E2F) ;; THAI CHARACTER PAIYANNOI
114 (#xD0 ?\u0E30) ;; THAI CHARACTER SARA A
115 (#xD1 ?\u0E31) ;; THAI CHARACTER MAI HAN-AKAT
116 (#xD2 ?\u0E32) ;; THAI CHARACTER SARA AA
117 (#xD3 ?\u0E33) ;; THAI CHARACTER SARA AM
118 (#xD4 ?\u0E34) ;; THAI CHARACTER SARA I
119 (#xD5 ?\u0E35) ;; THAI CHARACTER SARA II
120 (#xD6 ?\u0E36) ;; THAI CHARACTER SARA UE
121 (#xD7 ?\u0E37) ;; THAI CHARACTER SARA UEE
122 (#xD8 ?\u0E38) ;; THAI CHARACTER SARA U
123 (#xD9 ?\u0E39) ;; THAI CHARACTER SARA UU
124 (#xDA ?\u0E3A) ;; THAI CHARACTER PHINTHU
125 (#xDF ?\u0E3F) ;; THAI CURRENCY SYMBOL BAHT
126 (#xE0 ?\u0E40) ;; THAI CHARACTER SARA E
127 (#xE1 ?\u0E41) ;; THAI CHARACTER SARA AE
128 (#xE2 ?\u0E42) ;; THAI CHARACTER SARA O
129 (#xE3 ?\u0E43) ;; THAI CHARACTER SARA AI MAIMUAN
130 (#xE4 ?\u0E44) ;; THAI CHARACTER SARA AI MAIMALAI
131 (#xE5 ?\u0E45) ;; THAI CHARACTER LAKKHANGYAO
132 (#xE6 ?\u0E46) ;; THAI CHARACTER MAIYAMOK
133 (#xE7 ?\u0E47) ;; THAI CHARACTER MAITAIKHU
134 (#xE8 ?\u0E48) ;; THAI CHARACTER MAI EK
135 (#xE9 ?\u0E49) ;; THAI CHARACTER MAI THO
136 (#xEA ?\u0E4A) ;; THAI CHARACTER MAI TRI
137 (#xEB ?\u0E4B) ;; THAI CHARACTER MAI CHATTAWA
138 (#xEC ?\u0E4C) ;; THAI CHARACTER THANTHAKHAT
139 (#xED ?\u0E4D) ;; THAI CHARACTER NIKHAHIT
140 (#xEE ?\u0E4E) ;; THAI CHARACTER YAMAKKAN
141 (#xEF ?\u0E4F) ;; THAI CHARACTER FONGMAN
142 (#xF0 ?\u0E50) ;; THAI DIGIT ZERO
143 (#xF1 ?\u0E51) ;; THAI DIGIT ONE
144 (#xF2 ?\u0E52) ;; THAI DIGIT TWO
145 (#xF3 ?\u0E53) ;; THAI DIGIT THREE
146 (#xF4 ?\u0E54) ;; THAI DIGIT FOUR
147 (#xF5 ?\u0E55) ;; THAI DIGIT FIVE
148 (#xF6 ?\u0E56) ;; THAI DIGIT SIX
149 (#xF7 ?\u0E57) ;; THAI DIGIT SEVEN
150 (#xF8 ?\u0E58) ;; THAI DIGIT EIGHT
151 (#xF9 ?\u0E59) ;; THAI DIGIT NINE
152 (#xFA ?\u0E5A) ;; THAI CHARACTER ANGKHANKHU
153 (#xFB ?\u0E5B));; THAI CHARACTER KHOMUT
154 documentation "Non-composed Thai"
155 aliases (iso-8859-11)))
156
157 (make-coding-system
158 'windows-874 'fixed-width "Microsoft's CP874"
159 '(mnemonic "CP874"
160 unicode-map
161 ((#x80 ?\u20AC) ;; EURO SIGN
162 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
163 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
164 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
165 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
166 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
167 (#x95 ?\u2022) ;; BULLET
168 (#x96 ?\u2013) ;; EN DASH
169 (#x97 ?\u2014) ;; EM DASH
170 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
171 (#xA1 ?\u0E01) ;; THAI CHARACTER KO KAI
172 (#xA2 ?\u0E02) ;; THAI CHARACTER KHO KHAI
173 (#xA3 ?\u0E03) ;; THAI CHARACTER KHO KHUAT
174 (#xA4 ?\u0E04) ;; THAI CHARACTER KHO KHWAI
175 (#xA5 ?\u0E05) ;; THAI CHARACTER KHO KHON
176 (#xA6 ?\u0E06) ;; THAI CHARACTER KHO RAKHANG
177 (#xA7 ?\u0E07) ;; THAI CHARACTER NGO NGU
178 (#xA8 ?\u0E08) ;; THAI CHARACTER CHO CHAN
179 (#xA9 ?\u0E09) ;; THAI CHARACTER CHO CHING
180 (#xAA ?\u0E0A) ;; THAI CHARACTER CHO CHANG
181 (#xAB ?\u0E0B) ;; THAI CHARACTER SO SO
182 (#xAC ?\u0E0C) ;; THAI CHARACTER CHO CHOE
183 (#xAD ?\u0E0D) ;; THAI CHARACTER YO YING
184 (#xAE ?\u0E0E) ;; THAI CHARACTER DO CHADA
185 (#xAF ?\u0E0F) ;; THAI CHARACTER TO PATAK
186 (#xB0 ?\u0E10) ;; THAI CHARACTER THO THAN
187 (#xB1 ?\u0E11) ;; THAI CHARACTER THO NANGMONTHO
188 (#xB2 ?\u0E12) ;; THAI CHARACTER THO PHUTHAO
189 (#xB3 ?\u0E13) ;; THAI CHARACTER NO NEN
190 (#xB4 ?\u0E14) ;; THAI CHARACTER DO DEK
191 (#xB5 ?\u0E15) ;; THAI CHARACTER TO TAO
192 (#xB6 ?\u0E16) ;; THAI CHARACTER THO THUNG
193 (#xB7 ?\u0E17) ;; THAI CHARACTER THO THAHAN
194 (#xB8 ?\u0E18) ;; THAI CHARACTER THO THONG
195 (#xB9 ?\u0E19) ;; THAI CHARACTER NO NU
196 (#xBA ?\u0E1A) ;; THAI CHARACTER BO BAIMAI
197 (#xBB ?\u0E1B) ;; THAI CHARACTER PO PLA
198 (#xBC ?\u0E1C) ;; THAI CHARACTER PHO PHUNG
199 (#xBD ?\u0E1D) ;; THAI CHARACTER FO FA
200 (#xBE ?\u0E1E) ;; THAI CHARACTER PHO PHAN
201 (#xBF ?\u0E1F) ;; THAI CHARACTER FO FAN
202 (#xC0 ?\u0E20) ;; THAI CHARACTER PHO SAMPHAO
203 (#xC1 ?\u0E21) ;; THAI CHARACTER MO MA
204 (#xC2 ?\u0E22) ;; THAI CHARACTER YO YAK
205 (#xC3 ?\u0E23) ;; THAI CHARACTER RO RUA
206 (#xC4 ?\u0E24) ;; THAI CHARACTER RU
207 (#xC5 ?\u0E25) ;; THAI CHARACTER LO LING
208 (#xC6 ?\u0E26) ;; THAI CHARACTER LU
209 (#xC7 ?\u0E27) ;; THAI CHARACTER WO WAEN
210 (#xC8 ?\u0E28) ;; THAI CHARACTER SO SALA
211 (#xC9 ?\u0E29) ;; THAI CHARACTER SO RUSI
212 (#xCA ?\u0E2A) ;; THAI CHARACTER SO SUA
213 (#xCB ?\u0E2B) ;; THAI CHARACTER HO HIP
214 (#xCC ?\u0E2C) ;; THAI CHARACTER LO CHULA
215 (#xCD ?\u0E2D) ;; THAI CHARACTER O ANG
216 (#xCE ?\u0E2E) ;; THAI CHARACTER HO NOKHUK
217 (#xCF ?\u0E2F) ;; THAI CHARACTER PAIYANNOI
218 (#xD0 ?\u0E30) ;; THAI CHARACTER SARA A
219 (#xD1 ?\u0E31) ;; THAI CHARACTER MAI HAN-AKAT
220 (#xD2 ?\u0E32) ;; THAI CHARACTER SARA AA
221 (#xD3 ?\u0E33) ;; THAI CHARACTER SARA AM
222 (#xD4 ?\u0E34) ;; THAI CHARACTER SARA I
223 (#xD5 ?\u0E35) ;; THAI CHARACTER SARA II
224 (#xD6 ?\u0E36) ;; THAI CHARACTER SARA UE
225 (#xD7 ?\u0E37) ;; THAI CHARACTER SARA UEE
226 (#xD8 ?\u0E38) ;; THAI CHARACTER SARA U
227 (#xD9 ?\u0E39) ;; THAI CHARACTER SARA UU
228 (#xDA ?\u0E3A) ;; THAI CHARACTER PHINTHU
229 (#xDF ?\u0E3F) ;; THAI CURRENCY SYMBOL BAHT
230 (#xE0 ?\u0E40) ;; THAI CHARACTER SARA E
231 (#xE1 ?\u0E41) ;; THAI CHARACTER SARA AE
232 (#xE2 ?\u0E42) ;; THAI CHARACTER SARA O
233 (#xE3 ?\u0E43) ;; THAI CHARACTER SARA AI MAIMUAN
234 (#xE4 ?\u0E44) ;; THAI CHARACTER SARA AI MAIMALAI
235 (#xE5 ?\u0E45) ;; THAI CHARACTER LAKKHANGYAO
236 (#xE6 ?\u0E46) ;; THAI CHARACTER MAIYAMOK
237 (#xE7 ?\u0E47) ;; THAI CHARACTER MAITAIKHU
238 (#xE8 ?\u0E48) ;; THAI CHARACTER MAI EK
239 (#xE9 ?\u0E49) ;; THAI CHARACTER MAI THO
240 (#xEA ?\u0E4A) ;; THAI CHARACTER MAI TRI
241 (#xEB ?\u0E4B) ;; THAI CHARACTER MAI CHATTAWA
242 (#xEC ?\u0E4C) ;; THAI CHARACTER THANTHAKHAT
243 (#xED ?\u0E4D) ;; THAI CHARACTER NIKHAHIT
244 (#xEE ?\u0E4E) ;; THAI CHARACTER YAMAKKAN
245 (#xEF ?\u0E4F) ;; THAI CHARACTER FONGMAN
246 (#xF0 ?\u0E50) ;; THAI DIGIT ZERO
247 (#xF1 ?\u0E51) ;; THAI DIGIT ONE
248 (#xF2 ?\u0E52) ;; THAI DIGIT TWO
249 (#xF3 ?\u0E53) ;; THAI DIGIT THREE
250 (#xF4 ?\u0E54) ;; THAI DIGIT FOUR
251 (#xF5 ?\u0E55) ;; THAI DIGIT FIVE
252 (#xF6 ?\u0E56) ;; THAI DIGIT SIX
253 (#xF7 ?\u0E57) ;; THAI DIGIT SEVEN
254 (#xF8 ?\u0E58) ;; THAI DIGIT EIGHT
255 (#xF9 ?\u0E59) ;; THAI DIGIT NINE
256 (#xFA ?\u0E5A) ;; THAI CHARACTER ANGKHANKHU
257 (#xFB ?\u0E5B));; THAI CHARACTER KHOMUT
258 documentation "Microsoft's encoding for Thai."
259 aliases (cp874)))
260
261 (set-language-info-alist
262 "Thai"
263 '((coding-system tis-620 utf-8)
264 (tutorial . "TUTORIAL.th")
265 (tutorial-coding-system . tis-620)
266 (coding-priority tis-620 utf-8 iso-2022-7bit)
267 (sample-text . "สวัสดีครับ, สวัสดีค่ะ")
268 (documentation . t)))
91 269
92 (provide 'thai) 270 (provide 'thai)
93 271
94 ;;; thai.el ends here 272 ;;; thai.el ends here