Mercurial > emacs
changeset 89301:85b9175715b8
Register thai-composition-function in
composition-function-table for Thai vowels and tones.
(thai-tis620): Don't use thai-post-read-conversion.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 07 Nov 2002 06:32:02 +0000 |
| parents | 6a0cc62928b5 |
| children | b1774ad77cc7 |
| files | lisp/language/thai.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/thai.el Thu Nov 07 06:31:37 2002 +0000 +++ b/lisp/language/thai.el Thu Nov 07 06:32:02 2002 +0000 @@ -50,16 +50,10 @@ (features thai-util) (sample-text . (thai-compose-string - (copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) + (copy-sequence "Thai (,T@RIRd7B(B) ,TJGQJ4U$CQ:(B, ,TJGQJ4U$hP(B"))) (documentation . t))) -;; Register a function to compose Thai characters. -(set-char-table-range composition-function-table - '(#x0E00 . #x0E7F) - '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" - . thai-composition-function))) - (define-coding-system 'cp874 "DOS codepage 874 (Thai)" :coding-type 'charset @@ -76,6 +70,12 @@ :mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24 :charset-list '(iso-8859-11)) +;; For automatic composition. +(let ((chars ",TQTUVWXYZghijklmn(B")) + (dotimes (i (length chars)) + (aset composition-function-table (aref chars i) + 'thai-composition-function))) + (provide 'thai) ;;; thai.el ends here