# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 945218894 0
# Node ID 5562243fdd2b3a29b34b99e2e536e23a27046418
# Parent  e0a13ff5901d5efca5f2b18721ad7fa15bd3f3dd
Register thai-composition-function in
composition-function-table.
(thai-tis620): Delete `pre-write-conversion' property.

diff -r e0a13ff5901d -r 5562243fdd2b lisp/language/thai.el
--- a/lisp/language/thai.el	Wed Dec 15 00:47:53 1999 +0000
+++ b/lisp/language/thai.el	Wed Dec 15 00:48:14 1999 +0000
@@ -34,8 +34,7 @@
  '(ascii thai-tis620 nil nil
    nil ascii-eol)
  '((safe-charsets ascii thai-tis620)
-   (post-read-conversion . thai-post-read-conversion)
-   (pre-write-conversion . thai-pre-write-conversion)))
+   (post-read-conversion . thai-post-read-conversion)))
 
 (define-coding-system-alias 'th-tis620 'thai-tis620)
 (define-coding-system-alias 'tis620 'thai-tis620)
@@ -50,7 +49,12 @@
 	  (input-method . "thai-kesmanee")
 	  (unibyte-display . thai-tis620)
 	  (features thai-util)
-	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ(B0,TGQ(B1,TJ(B0,T4U(B1,T$(B0,TCQ(B1,T:(B, ,TJ(B0,TGQ(B1,TJ(B0,T4U(B10,T$h(B1,TP(B")
+	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
 	  (documentation . t)))
 
+
+;; Register a function to compose Thai characters.
+(aset composition-function-table (make-char 'thai-tis620)
+      '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function)))
+
 ;;; thai.el ends here