From: Kenichi Handa <handa@m17n.org>
Date: Thu, 7 Nov 2002 06:32:02 +0000 (+0000)
Subject: Register thai-composition-function in
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~160
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1662e139884f13ba1f5218749b2c493fc0117295;p=emacs.git

Register thai-composition-function in
composition-function-table for Thai vowels and tones.
(thai-tis620): Don't use thai-post-read-conversion.
---

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 754fb2e3f51..858814ea3fb 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