56 |
|
|
57 |
|
|
58 |
;; Register a function to compose Thai characters. |
;; Register a function to compose Thai characters. |
59 |
(aset composition-function-table (make-char 'thai-tis620) |
(let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" |
60 |
'(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function))) |
. thai-composition-function)))) |
61 |
|
(aset composition-function-table (make-char 'thai-tis620) patterns) |
62 |
|
(dotimes (i (1+ (- #xe7f #xe00))) |
63 |
|
(aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns))) |
64 |
|
|
65 |
(provide 'thai) |
(provide 'thai) |
66 |
|
|