diff options
| author | Dave Love <[email protected]> | 2001-12-11 18:00:45 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2001-12-11 18:00:45 +0000 |
| commit | 2c974b151e13c5cd202bb284acb1a04d9691ae63 (patch) | |
| tree | 1df083f96cac1678b1d7039245a0b21ca0128784 /lisp/language/thai.el | |
| parent | 4efe23fc4cfd8420e98ff9cd2296a2d052b9c6b3 (diff) | |
Add Unicode
equivalents.
Diffstat (limited to 'lisp/language/thai.el')
| -rw-r--r-- | lisp/language/thai.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/language/thai.el b/lisp/language/thai.el index 7ba4043e10..30e1c194bd 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -56,8 +56,11 @@ ;; Register a function to compose Thai characters. -(aset composition-function-table (make-char 'thai-tis620) - '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function))) +(let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" + . thai-composition-function)))) + (aset composition-function-table (make-char 'thai-tis620) patterns) + (dotimes (i (1+ (- #xe7f #xe00))) + (aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns))) (provide 'thai) |