diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:46:28 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:46:28 +0000 |
| commit | a79a3c798bed9748ceb8225a9bdd7a89a940c6ec (patch) | |
| tree | dbc3bbfa84631d3a9ecf5bfc90b5c45dbec8356a /lisp/language/thai.el | |
| parent | 8f3969f8ab93f4c7361097f5aeac9a8b9430ae77 (diff) | |
Adjusted for the change of make-coding-system. Register
coding-priority key in language-info-alist.
Diffstat (limited to 'lisp/language/thai.el')
| -rw-r--r-- | lisp/language/thai.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/language/thai.el b/lisp/language/thai.el index a96c7cceef7..6ee6d8780bf 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -31,13 +31,11 @@ (make-coding-system 'thai-tis620 2 ?T "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" - '((ascii t) (thai-tis620 t) nil nil + '(ascii thai-tis620 nil nil nil ascii-eol) - '(ascii thai-tis620)) -(coding-system-put 'thai-tis620 'post-read-conversion - 'thai-post-read-conversion) -(coding-system-put 'thai-tis620 'pre-write-conversion - 'thai-pre-write-conversion) + '((safe-charsets ascii thai-tis620) + (post-read-conversion . thai-post-read-conversion) + (pre-write-conversion . thai-pre-write-conversion))) (define-coding-system-alias 'th-tis620 'thai-tis620) (define-coding-system-alias 'tis620 'thai-tis620) @@ -45,9 +43,10 @@ (set-language-info-alist "Thai" '((tutorial . "TUTORIAL.th") (setup-function . setup-thai-environment) - (charset . (thai-tis620)) - (coding-system . (thai-tis620)) - (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B") + (charset thai-tis620) + (coding-system thai-tis620) + (coding-priority thai-tis620) + (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") (documentation . t))) ;;; thai.el ends here |