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