Mercurial > emacs

diff lisp/language/thai.el @ 17772:550afdbb31d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make functions setup-LANGUAGE-environment interactive and add new functions describe-LANGUAGE-support for all LANGUAGEs supported. Remove resisterations of input methods which use the function encoded-kbd-select-terminal.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:16 +0000
parents 8917133b7e82
children 084d922fcd78
line wrap: on
line diff
--- a/lisp/language/thai.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/thai.el	Mon May 12 07:00:16 1997 +0000
@@ -42,6 +42,9 @@
  "Thai" '("quail-thai" quail-use-package "quail/thai"))
 
 (defun setup-thai-environment ()
+  "Setup multilingual environment (MULE) for Thai."
+  (interactive)
+  (setup-english-environment)
   (setq coding-category-iso-8-1 'th-tis620)
 
   (set-coding-priority
@@ -53,12 +56,18 @@
   (setq default-input-method '("Thai" . "quail-thai"))
   )
 
+(defun describe-thai-support ()
+  "Describe how Emacs supports Thai."
+  (interactive)
+  (describe-language-support-internal "Thai"))
+
 (set-language-info-alist
  "Thai" '((tutorial . "TUTORIAL.th")
 	  (setup-function . setup-thai-environment)
+	  (describe-function . describe-thai-support)
 	  (charset . (thai-tis620))
 	  (coding-system . (th-tis620))
-	  (documentation . t)
-	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
+	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
+	  (documentation . nil)))
 
 ;;; thai.el ends here