Mercurial > emacs

comparison lisp/language/thai-util.el @ 17993:73869115ae0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Most of setup-LANGUAGE-environment functions are moved form LANGUAGE.el to LANG-util.el. These functions now at first call setup-english-environment to reset various values to the defaults.
author Kenichi Handa <handa@m17n.org>
date Wed, 28 May 1997 03:39:03 +0000
parents a4bf913d6caf
children 0745f30aec66
comparison
equal deleted inserted replaced
17992:191bef5a0922 17993:73869115ae0a
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Code: 25 ;;; Code:
26
27 ;;;autoload
28 (defun setup-thai-environment ()
29 "Setup multilingual environment (MULE) for Thai."
30 (interactive)
31 (setup-8-bit-environment 'thai-tis620 'th-tis620
32 '("Thai" . "quail-thai")))
26 33
27 ;; Setting information of Thai characters. 34 ;; Setting information of Thai characters.
28 35
29 (let ((l '((?,T!(B consonant "LETTER KO KAI") ; 0xA1 36 (let ((l '((?,T!(B consonant "LETTER KO KAI") ; 0xA1
30 (?,T"(B consonant "LETTER KHO KHAI") ; 0xA2 37 (?,T"(B consonant "LETTER KHO KHAI") ; 0xA2