Mercurial > emacs

comparison lisp/language/thai.el @ 17841:084d922fcd78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Coding system names changed as follows: internal -> emacs-mule, automatic-conversion -> undecided. Coding category name changes as follows: coding-category-internal -> coding-category-emacs-mule. Delete functions describe-LANGUAGE-support. Delete describe-function entries and change documentation entries in each language specific information.
author Kenichi Handa <handa@m17n.org>
date Fri, 16 May 1997 00:59:09 +0000
parents 550afdbb31d8
children 73869115ae0a
comparison
equal deleted inserted replaced
17840:2517414676ed 17841:084d922fcd78
54 (setq-default buffer-file-coding-system 'th-tis620) 54 (setq-default buffer-file-coding-system 'th-tis620)
55 55
56 (setq default-input-method '("Thai" . "quail-thai")) 56 (setq default-input-method '("Thai" . "quail-thai"))
57 ) 57 )
58 58
59 (defun describe-thai-support ()
60 "Describe how Emacs supports Thai."
61 (interactive)
62 (describe-language-support-internal "Thai"))
63
64 (set-language-info-alist 59 (set-language-info-alist
65 "Thai" '((tutorial . "TUTORIAL.th") 60 "Thai" '((tutorial . "TUTORIAL.th")
66 (setup-function . setup-thai-environment) 61 (setup-function . setup-thai-environment)
67 (describe-function . describe-thai-support)
68 (charset . (thai-tis620)) 62 (charset . (thai-tis620))
69 (coding-system . (th-tis620)) 63 (coding-system . (th-tis620))
70 (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B") 64 (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
71 (documentation . nil))) 65 (documentation . t)))
72 66
73 ;;; thai.el ends here 67 ;;; thai.el ends here