diff options
| author | Kenichi Handa <[email protected]> | 2002-11-07 06:32:02 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 2002-11-07 06:32:02 +0000 |
| commit | 1662e139884f13ba1f5218749b2c493fc0117295 (patch) | |
| tree | 3477729fabf88e7d726d74aa515dd4e3bb70e5ca /lisp/language/thai.el | |
| parent | 908ac9e20f7655f7edceb554760ec306368d6c2d (diff) | |
Register thai-composition-function in
composition-function-table for Thai vowels and tones.
(thai-tis620): Don't use thai-post-read-conversion.
Diffstat (limited to 'lisp/language/thai.el')
| -rw-r--r-- | lisp/language/thai.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/language/thai.el b/lisp/language/thai.el index 754fb2e3f5..858814ea3f 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -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 @@ This is the same as `thai-tis620' with the addition of no-break-space." :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 |