From c27737aa242649f1c95ec8c7020c578b92b817c1 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 15 Dec 1999 00:48:14 +0000 Subject: [PATCH] Register thai-composition-function in composition-function-table. (thai-tis620): Delete `pre-write-conversion' property. --- lisp/language/thai.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/language/thai.el b/lisp/language/thai.el index 6d9140c0595..addb4381e6d 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -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 -- 2.39.5