50 |
(features thai-util) |
(features thai-util) |
51 |
(sample-text |
(sample-text |
52 |
. (thai-compose-string |
. (thai-compose-string |
53 |
(copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) |
(copy-sequence "Thai (,T@RIRd7B(B) ,TJGQJ4U$CQ:(B, ,TJGQJ4U$hP(B"))) |
54 |
(documentation . t))) |
(documentation . t))) |
55 |
|
|
56 |
|
|
|
;; Register a function to compose Thai characters. |
|
|
(set-char-table-range composition-function-table |
|
|
'(#x0E00 . #x0E7F) |
|
|
'(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" |
|
|
. thai-composition-function))) |
|
|
|
|
57 |
(define-coding-system 'cp874 |
(define-coding-system 'cp874 |
58 |
"DOS codepage 874 (Thai)" |
"DOS codepage 874 (Thai)" |
59 |
:coding-type 'charset |
:coding-type 'charset |
70 |
:mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24 |
:mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24 |
71 |
:charset-list '(iso-8859-11)) |
:charset-list '(iso-8859-11)) |
72 |
|
|
73 |
|
;; For automatic composition. |
74 |
|
(let ((chars ",TQTUVWXYZghijklmn(B")) |
75 |
|
(dotimes (i (length chars)) |
76 |
|
(aset composition-function-table (aref chars i) |
77 |
|
'thai-composition-function))) |
78 |
|
|
79 |
(provide 'thai) |
(provide 'thai) |
80 |
|
|
81 |
;;; thai.el ends here |
;;; thai.el ends here |