Mercurial > emacs

changeset 26895:5562243fdd2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Register thai-composition-function in composition-function-table. (thai-tis620): Delete `pre-write-conversion' property.
author Kenichi Handa <handa@m17n.org>
date Wed, 15 Dec 1999 00:48:14 +0000
parents e0a13ff5901d
children d48416a42048
files lisp/language/thai.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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