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

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.

17771:1db36f7e82d1

(register-input-method
 "Thai" '("quail-thai" quail-use-package "quail/thai"))

(defun setup-thai-environment ()
  (setq coding-category-iso-8-1 'th-tis620)

  (set-coding-priority
   '(coding-category-iso-7
     coding-category-iso-8-1))

  (setq-default buffer-file-coding-system 'th-tis620)

  (setq default-input-method '("Thai" . "quail-thai"))
  )

(set-language-info-alist
 "Thai" '((tutorial . "TUTORIAL.th")
	  (setup-function . setup-thai-environment)
	  (charset . (thai-tis620))
	  (coding-system . (th-tis620))
	  (documentation . t)
	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))

;;; thai.el ends here

17772:550afdbb31d8

(register-input-method
 "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
   '(coding-category-iso-7
     coding-category-iso-8-1))

  (setq-default buffer-file-coding-system 'th-tis620)

  (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))
	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
	  (documentation . nil)))

;;; thai.el ends here