Commit c27737aa authored by Kenichi Handa's avatar Kenichi Handa

Register thai-composition-function in

composition-function-table.
(thai-tis620): Delete `pre-write-conversion' property.
parent 31ce7719
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment