annotate lisp/language/english.el @ 89633:40b05b530518

(update_compositions): Bind inhibit-read-only, etc to t before calling remove-list-of-text-properties.
author Kenichi Handa <handa@m17n.org>
date Tue, 18 Nov 2003 06:29:24 +0000
parents 2f877ed80fa6
children 68c22ea6027c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
47726
33d53d287ee4 Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents: 38414
diff changeset
1 ;;; english.el --- support for English -*- no-byte-compile: t -*-
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89199
diff changeset
4 ;; Licensed to the Free Software Foundation.
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89199
diff changeset
5 ;; Copyright (C) 2003
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89199
diff changeset
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89199
diff changeset
7 ;; Registration Number H13PRO009
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 ;; Keywords: multibyte character, character set, syntax, category
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; any later version.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 ;; Boston, MA 02111-1307, USA.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 ;;; Commentary:
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 ;; We need nothing special to support English on Emacs. Selecting
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 ;; English as a language environment is one of the ways to reset
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 ;; various multilingual environment to the original settting.
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 28906
diff changeset
34 ;;; Code:
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 (set-language-info-alist
22981
dfc5c82b7526 (setup-english-environment): Just call
Kenichi Handa <handa@m17n.org>
parents: 21767
diff changeset
37 "English" '((tutorial . "TUTORIAL")
20744
48d79ef65489 Register coding-priority key in
Kenichi Handa <handa@m17n.org>
parents: 19954
diff changeset
38 (charset ascii)
17767
d93b9414ff2b Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents: 17301
diff changeset
39 (sample-text . "Hello!, Hi!, How are you?")
17994
28d45a11ac18 (setup-english-environment): Set several
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
40 (documentation . "\
18158
723b3b1516b6 ("English"): Improve doc string.
Richard M. Stallman <rms@gnu.org>
parents: 17994
diff changeset
41 Nothing special is needed to handle English.")
17767
d93b9414ff2b Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents: 17301
diff changeset
42 ))
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43
88556
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
44 ;; Mostly because we can now...
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
45 (define-coding-system 'ebcdic-us
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
46 "US version of EBCDIC"
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
47 :coding-type 'charset
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
48 :charset-list '(ebcdic-us)
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
49 :mnemonic ?*)
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
50
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
51 (define-coding-system 'ebcdic-uk
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
52 "UK version of EBCDIC"
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
53 :coding-type 'charset
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
54 :charset-list '(ebcdic-uk)
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
55 :mnemonic ?*)
c1d67f50c8f0 (ebcdic-us, ebcdic-uk): New coding systems.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
56
89199
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
57 (define-coding-system 'ibm1047
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
58 "A version of EBCDIC used in OS/390 Unix" ; says Groff
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
59 :coding-type 'charset
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
60 :charset-list '(ibm1047)
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
61 :mnemonic ?*)
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
62 (define-coding-system-alias 'cp1047 'ibm1047)
3cdeb8452578 (ibm1047, cp1047): New.
Dave Love <fx@gnu.org>
parents: 88556
diff changeset
63
19954
9c37afba82bc (ASCII): Define as alias for English.
Richard M. Stallman <rms@gnu.org>
parents: 19922
diff changeset
64 ;; Make "ASCII" an alias of "English" language environment.
9c37afba82bc (ASCII): Define as alias for English.
Richard M. Stallman <rms@gnu.org>
parents: 19922
diff changeset
65 (set-language-info-alist
9c37afba82bc (ASCII): Define as alias for English.
Richard M. Stallman <rms@gnu.org>
parents: 19922
diff changeset
66 "ASCII" (cdr (assoc "English" language-info-alist)))
9c37afba82bc (ASCII): Define as alias for English.
Richard M. Stallman <rms@gnu.org>
parents: 19922
diff changeset
67
17301
0b94fe381355 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 ;;; english.el ends here