42 |
(features lao-util) |
(features lao-util) |
43 |
(documentation . t))) |
(documentation . t))) |
44 |
|
|
45 |
;; Register a function to compose Lao characters. |
;; For automatic composition. |
46 |
(set-char-table-range composition-function-table |
(let ((chars "(1QTUVWXY[\hijklm(B")) |
47 |
'(#x0F00 . #x0F7F) |
(dotimes (i (length chars)) |
48 |
'(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?" |
(aset composition-function-table (aref chars i) |
49 |
. lao-composition-function))) |
'lao-composition-function))) |
50 |
|
|
51 |
(provide 'lao) |
(provide 'lao) |
52 |
|
|