Mercurial > emacs
comparison lisp/language/thai.el @ 61081:a8dfe0dc2ae7
("Thai"): Set setup-function and exit-function
for Thai language environment.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 29 Mar 2005 07:56:54 +0000 |
| parents | cd964c0f3549 |
| children | 18a818a2ee7c 4da4a09e8b1b |
comparison
equal
deleted
inserted
replaced
| 61080:2ca1aa1eb959 | 61081:a8dfe0dc2ae7 |
|---|---|
| 1 ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 |
| 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | 3 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2002, 2005 |
| 4 ;; Licensed to the Free Software Foundation. | |
| 5 ;; Copyright (C) 2005 | |
| 6 ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 ;; Registration Number H14PRO021 | 5 ;; Registration Number H14PRO021 |
| 6 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. | |
| 8 | 7 |
| 9 ;; Keywords: multilingual, Thai | 8 ;; Keywords: multilingual, Thai |
| 10 | 9 |
| 11 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
| 12 | 11 |
| 51 (coding-priority thai-tis620) | 50 (coding-priority thai-tis620) |
| 52 (nonascii-translation . thai-tis620) | 51 (nonascii-translation . thai-tis620) |
| 53 (input-method . "thai-kesmanee") | 52 (input-method . "thai-kesmanee") |
| 54 (unibyte-display . thai-tis620) | 53 (unibyte-display . thai-tis620) |
| 55 (features thai-util) | 54 (features thai-util) |
| 55 (setup-function . setup-thai-language-environment-internal) | |
| 56 (exit-function . exit-thai-language-environment-internal) | |
| 56 (sample-text | 57 (sample-text |
| 57 . (thai-compose-string | 58 . (thai-compose-string |
| 58 (copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) | 59 (copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) |
| 59 (documentation . t))) | 60 (documentation . t))) |
| 60 | 61 |