Mercurial > emacs
annotate lisp/language/thai.el @ 20279:69a6030e443a
(kill-region): Detect read-only text
by getting an error trying to delete it.
Handle the cases where we can, and can't, get the killed text
from the undo list with much the same code.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 19 Nov 1997 21:36:56 +0000 |
parents | c8c4c714710b |
children | 5f2c7f919bbf |
rev | line source |
---|---|
17052 | 1 ;;; thai.el --- Support for Thai |
2 | |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18309
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
17052 | 5 |
6 ;; Keywords: multilingual, Thai | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
17071 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
17052 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; For Thai, the character set TIS620 is supported. | |
28 | |
29 ;;; Code: | |
30 | |
31 (make-coding-system | |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
17993
diff
changeset
|
32 'thai-tis620 2 ?T |
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
17993
diff
changeset
|
33 "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" |
17052 | 34 '((ascii t) (thai-tis620 t) nil nil |
20156
c8c4c714710b
Give proper SAFE-CHARSET argument in each call
Kenichi Handa <handa@m17n.org>
parents:
20108
diff
changeset
|
35 nil ascii-eol) |
c8c4c714710b
Give proper SAFE-CHARSET argument in each call
Kenichi Handa <handa@m17n.org>
parents:
20108
diff
changeset
|
36 '(ascii thai-tis620)) |
20108
00b744016673
Use coding-system-put to set coding system
Kenichi Handa <handa@m17n.org>
parents:
18519
diff
changeset
|
37 (coding-system-put 'thai-tis620 'post-read-conversion |
00b744016673
Use coding-system-put to set coding system
Kenichi Handa <handa@m17n.org>
parents:
18519
diff
changeset
|
38 'thai-post-read-conversion) |
00b744016673
Use coding-system-put to set coding system
Kenichi Handa <handa@m17n.org>
parents:
18519
diff
changeset
|
39 (coding-system-put 'thai-tis620 'pre-write-conversion |
00b744016673
Use coding-system-put to set coding system
Kenichi Handa <handa@m17n.org>
parents:
18519
diff
changeset
|
40 'thai-pre-write-conversion) |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
41 |
18519
b6badf3614ea
Fix calls to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
42 (define-coding-system-alias 'th-tis620 'thai-tis620) |
b6badf3614ea
Fix calls to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
43 (define-coding-system-alias 'tis620 'thai-tis620) |
17052 | 44 |
45 (set-language-info-alist | |
46 "Thai" '((tutorial . "TUTORIAL.th") | |
47 (setup-function . setup-thai-environment) | |
48 (charset . (thai-tis620)) | |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
17993
diff
changeset
|
49 (coding-system . (thai-tis620)) |
17772
550afdbb31d8
Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
50 (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B") |
17841
084d922fcd78
Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents:
17772
diff
changeset
|
51 (documentation . t))) |
17052 | 52 |
53 ;;; thai.el ends here |