28 |
|
|
29 |
;;; Code: |
;;; Code: |
30 |
|
|
31 |
(make-coding-system |
(define-coding-system 'thai-tis620 |
32 |
'thai-tis620 2 ?T |
"8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)." |
33 |
"8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)." |
:coding-type 'charset |
34 |
'(ascii thai-tis620 nil nil |
:mnemonic ?T |
35 |
nil ascii-eol) |
:charset-list '(tis620-2533)) |
|
'((safe-charsets ascii thai-tis620) |
|
|
(post-read-conversion . thai-post-read-conversion))) |
|
36 |
|
|
37 |
(define-coding-system-alias 'th-tis620 'thai-tis620) |
(define-coding-system-alias 'th-tis620 'thai-tis620) |
38 |
(define-coding-system-alias 'tis620 'thai-tis620) |
(define-coding-system-alias 'tis620 'thai-tis620) |
43 |
(charset thai-tis620) |
(charset thai-tis620) |
44 |
(coding-system thai-tis620) |
(coding-system thai-tis620) |
45 |
(coding-priority thai-tis620) |
(coding-priority thai-tis620) |
46 |
(nonascii-translation . thai-tis620) |
(nonascii-translation . tis620-2533) |
47 |
(input-method . "thai-kesmanee") |
(input-method . "thai-kesmanee") |
48 |
(unibyte-display . thai-tis620) |
(unibyte-display . thai-tis620) |
49 |
(features thai-util) |
(features thai-util) |
54 |
|
|
55 |
|
|
56 |
;; Register a function to compose Thai characters. |
;; Register a function to compose Thai characters. |
57 |
(let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" |
(set-char-table-range composition-function-table |
58 |
. thai-composition-function)))) |
'(#x0E00 . #x0E7F) |
59 |
(aset composition-function-table (make-char 'thai-tis620) patterns) |
'(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" |
60 |
(dotimes (i (1+ (- #xe7f #xe00))) |
. thai-composition-function))) |
|
(aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns))) |
|
61 |
|
|
62 |
(provide 'thai) |
(provide 'thai) |
63 |
|
|