annotate lisp/international/mule-conf.el @ 39925:8944218cbc96

*** empty log message ***
author Pavel Janík <Pavel@Janik.cz>
date Sun, 14 Oct 2001 16:14:53 +0000
parents 9688519d51d6
children d566b1e9a5bb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; mule-conf.el --- configure multilingual environment
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18302
diff changeset
4 ;; Licensed to the Free Software Foundation.
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Keywords: mule, multilingual, character set, coding system
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; Don't byte-compile this file.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;;; Code:
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;;; Definitions of character sets.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 ;; Basic (official) character sets. These character sets are treated
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 24807
diff changeset
34 ;; efficiently with respect to buffer memory.
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; Syntax:
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;; (define-charset CHARSET-ID CHARSET
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 ;; [ DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 ;; SHORT-NAME LONG-NAME DESCRIPTION ])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ;; ASCII charset is defined in src/charset.c as below.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 ;; (define-charset 0 ascii
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 ;; [1 94 1 0 ?B 0 "ASCII" "ASCII" "ASCII (ISO646 IRV)"])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
44 ;; 1-byte charsets. Valid range of CHARSET-ID is 128..143.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
45
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
46 ;; CHARSET-ID 128 is not used.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
47
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48 (define-charset 129 'latin-iso8859-1
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
49 [1 96 1 0 ?A 1 "RHP of Latin-1" "RHP of Latin-1 (ISO 8859-1): ISO-IR-100"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
50 "Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 (define-charset 130 'latin-iso8859-2
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
52 [1 96 1 0 ?B 1 "RHP of Latin-2" "RHP of Latin-2 (ISO 8859-2): ISO-IR-101"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
53 "Right-Hand Part of Latin Alphabet 2 (ISO/IEC 8859-2): ISO-IR-101"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 (define-charset 131 'latin-iso8859-3
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
55 [1 96 1 0 ?C 1 "RHP of Latin-3" "RHP of Latin-3 (ISO 8859-3): ISO-IR-109"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
56 "Right-Hand Part of Latin Alphabet 3 (ISO/IEC 8859-3): ISO-IR-109"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 (define-charset 132 'latin-iso8859-4
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
58 [1 96 1 0 ?D 1 "RHP of Latin-4" "RHP of Latin-4 (ISO 8859-4): ISO-IR-110"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
59 "Right-Hand Part of Latin Alphabet 4 (ISO/IEC 8859-4): ISO-IR-110"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 (define-charset 133 'thai-tis620
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
61 [1 96 1 0 ?T 1 "RHP of TIS620" "RHP of Thai (TIS620): ISO-IR-166"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
62 "Right-Hand Part of TIS620.2533 (Thai): ISO-IR-166"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 (define-charset 134 'greek-iso8859-7
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
64 [1 96 1 0 ?F 1 "RHP of ISO8859/7" "RHP of Greek (ISO 8859-7): ISO-IR-126"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
65 "Right-Hand Part of Latin/Greek Alphabet (ISO/IEC 8859-7): ISO-IR-126"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66 (define-charset 135 'arabic-iso8859-6
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
67 [1 96 1 1 ?G 1 "RHP of ISO8859/6" "RHP of Arabic (ISO 8859-6): ISO-IR-127"
28951
f23c3e4e8a31 (arabic-iso8859-6): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 28898
diff changeset
68 "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 (define-charset 136 'hebrew-iso8859-8
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
70 [1 96 1 1 ?H 1 "RHP of ISO8859/8" "RHP of Hebrew (ISO 8859-8): ISO-IR-138"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
71 "Right-Hand Part of Latin/Hebrew Alphabet (ISO/IEC 8859-8): ISO-IR-138"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 (define-charset 137 'katakana-jisx0201
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
73 [1 94 1 0 ?I 1 "JISX0201 Katakana" "Japanese Katakana (JISX0201.1976)"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
74 "Katakana Part of JISX0201.1976"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 (define-charset 138 'latin-jisx0201
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
76 [1 94 1 0 ?J 0 "JISX0201 Roman" "Japanese Roman (JISX0201.1976)"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
77 "Roman Part of JISX0201.1976"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
78
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
79 ;; CHARSET-ID is not used 139.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
80
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 (define-charset 140 'cyrillic-iso8859-5
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
82 [1 96 1 0 ?L 1 "RHP of ISO8859/5" "RHP of Cyrillic (ISO 8859-5): ISO-IR-144"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
83 "Right-Hand Part of Latin/Cyrillic Alphabet (ISO/IEC 8859-5): ISO-IR-144"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84 (define-charset 141 'latin-iso8859-9
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
85 [1 96 1 0 ?M 1 "RHP of Latin-5" "RHP of Latin-5 (ISO 8859-9): ISO-IR-148"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
86 "Right-Hand Part of Latin Alphabet 5 (ISO/IEC 8859-9): ISO-IR-148"])
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 24807
diff changeset
87 (define-charset 142 'latin-iso8859-15
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
88 [1 96 1 0 ?b 1 "RHP of Latin-9" "RHP of Latin-9 (ISO 8859-15): ISO-IR-203"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
89 "Right-Hand Part of Latin Alphabet 9 (ISO/IEC 8859-15): ISO-IR-203"])
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 24807
diff changeset
90 (define-charset 143 'latin-iso8859-14
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
91 [1 96 1 0 ?_ 1 "RHP of Latin-8" "RHP of Latin-8 (ISO 8859-14)"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
92 "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
93
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
94 ;; 2-byte charsets. Valid range of CHARSET-ID is 144..153.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
95
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96 (define-charset 144 'japanese-jisx0208-1978
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
97 [2 94 2 0 ?@ 0 "JISX0208.1978" "JISX0208.1978 (Japanese): ISO-IR-42"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
98 "JISX0208.1978 Japanese Kanji (so called \"old JIS\"): ISO-IR-42"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
99 (define-charset 145 'chinese-gb2312
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
100 [2 94 2 0 ?A 0 "GB2312" "GB2312: ISO-IR-58"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
101 "GB2312 Chinese simplified: ISO-IR-58"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
102 (define-charset 146 'japanese-jisx0208
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
103 [2 94 2 0 ?B 0 "JISX0208" "JISX0208.1983/1990 (Japanese): ISO-IR-87"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
104 "JISX0208.1983/1990 Japanese Kanji: ISO-IR-87"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 (define-charset 147 'korean-ksc5601
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
106 [2 94 2 0 ?C 0 "KSC5601" "KSC5601 (Korean): ISO-IR-149"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
107 "KSC5601 Korean Hangul and Hanja: ISO-IR-149"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 (define-charset 148 'japanese-jisx0212
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
109 [2 94 2 0 ?D 0 "JISX0212" "JISX0212 (Japanese): ISO-IR-159"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
110 "JISX0212 Japanese supplement: ISO-IR-159"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 (define-charset 149 'chinese-cns11643-1
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
112 [2 94 2 0 ?G 0 "CNS11643-1" "CNS11643-1 (Chinese traditional): ISO-IR-171"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
113 "CNS11643 Plane 1 Chinese traditional: ISO-IR-171"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114 (define-charset 150 'chinese-cns11643-2
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
115 [2 94 2 0 ?H 0 "CNS11643-2" "CNS11643-2 (Chinese traditional): ISO-IR-172"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
116 "CNS11643 Plane 2 Chinese traditional: ISO-IR-172"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
117 (define-charset 151 'japanese-jisx0213-1
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
118 [2 94 2 0 ?O 0 "JISX0213-1" "JISX0213-1" "JISX0213 Plane 1 (Japanese)"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119 (define-charset 152 'chinese-big5-1
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
120 [2 94 2 0 ?0 0 "Big5 (Level-1)" "Big5 (Level-1) A141-C67F"
35681
de6a16f23233 (chinese-big5-1, chinese-big5-2): Doc
Dave Love <fx@gnu.org>
parents: 35555
diff changeset
121 "Frequently used part (A141-C67F) of Big5 (Chinese traditional)"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 (define-charset 153 'chinese-big5-2
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
123 [2 94 2 0 ?1 0 "Big5 (Level-2)" "Big5 (Level-2) C940-FEFE"
35681
de6a16f23233 (chinese-big5-1, chinese-big5-2): Doc
Dave Love <fx@gnu.org>
parents: 35555
diff changeset
124 "Less frequently used part (C940-FEFE) of Big5 (Chinese traditional)"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 ;; Additional (private) character sets. These character sets are
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 24807
diff changeset
127 ;; treated less space-efficiently in the buffer.
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129 ;; Syntax:
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
130 ;; (define-charset CHARSET-ID CHARSET
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 ;; [ DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132 ;; SHORT-NAME LONG-NAME DESCRIPTION ])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
134 ;; ISO-2022 allows a use of character sets not registered in ISO with
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135 ;; final characters `0' (0x30) through `?' (0x3F). Among them, Emacs
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 ;; reserves `0' through `9' to support several private character sets.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 ;; The remaining final characters `:' through `?' are for users.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
139 ;; 1-byte 1-column charsets. Valid range of CHARSET-ID is 160..223.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
140
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
141 (define-charset 160 'chinese-sisheng
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142 [1 94 1 0 ?0 0 "SiSheng" "SiSheng (PinYin/ZhuYin)"
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 "SiSheng characters for PinYin/ZhuYin"])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145 ;; IPA characters for phonetic symbols.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
146 (define-charset 161 'ipa
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147 [1 96 1 0 ?0 1 "IPA" "IPA" "IPA (International Phonetic Association)"])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 ;; Vietnamese VISCII. VISCII is 1-byte character set which contains
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 ;; more than 96 characters. Since Emacs can't handle it as one
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 ;; character set, it is divided into two: lower case letters and upper
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 ;; case letters.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
153 (define-charset 162 'vietnamese-viscii-lower
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
154 [1 96 1 0 ?1 1 "VISCII lower" "VISCII lower-case" "VISCII1.1 lower-case"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
155 (define-charset 163 'vietnamese-viscii-upper
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
156 [1 96 1 0 ?2 1 "VISCII upper" "VISCII upper-case" "VISCII1.1 upper-case"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 ;; For Arabic, we need three different types of character sets.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 ;; Digits are of direction left-to-right and of width 1-column.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160 ;; Others are of direction right-to-left and of width 1-column or
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
161 ;; 2-column.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
162 (define-charset 164 'arabic-digit
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
163 [1 94 1 0 ?2 0 "Arabic digit" "Arabic digit" "Arabic digit"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
164 (define-charset 165 'arabic-1-column
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
165 [1 94 1 1 ?3 0 "Arabic 1-col" "Arabic 1-column" "Arabic 1-column"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
166
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
167 ;; ASCII with right-to-left direction.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
168 (define-charset 166 'ascii-right-to-left
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
169 [1 94 1 1 ?B 0 "rev ASCII" "ASCII with right-to-left direction"
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
170 "ASCII (left half of ISO 8859-1) with right-to-left direction"])
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
171
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
172 ;; Lao script.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
173 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
174 (define-charset 167 'lao
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
175 [1 94 1 0 ?1 0 "Lao" "Lao" "Lao characters (ISO10646 0E80..0EDF)"])
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
176
35805
5f2982b72fae Remove unused charsets mac-roman-lower and mac-roman-upper.
Kenichi Handa <handa@m17n.org>
parents: 35681
diff changeset
177 ;; CHARSET-IDs 168..223 are not used.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
178
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
179 ;; 1-byte 2-column charsets. Valid range of CHARSET-ID is 224..239.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
180
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
181 (define-charset 224 'arabic-2-column
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
182 [1 94 2 1 ?4 0 "Arabic 2-col" "Arabic 2-column" "Arabic 2-column"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
183
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
184 ;; Indian scripts. Symbolic charset for data exchange. Glyphs are
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
185 ;; not assigned. They are automatically converted to each Indian
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
186 ;; script which IS-13194 supports.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
187
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
188 (define-charset 225 'indian-is13194
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
189 [1 94 2 0 ?5 1 "IS 13194" "Indian IS 13194"
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
190 "Generic Indian charset for data exchange with IS 13194"])
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
191
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
192 ;; CHARSET-IDs 226..239 are not used.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
193
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
194 ;; 2-byte 1-column charsets. Valid range of CHARSET-ID is 240..244.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
195
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
196 ;; Actual Glyph for 1-column width.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
197 (define-charset 240 'indian-1-column
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
198 [2 94 1 0 ?6 0 "Indian 1-col" "Indian 1 Column"
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
199 "Indian charset for 2-column width glyphs"])
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
200
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
201 (define-charset 241 'tibetan-1-column
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
202 [2 94 1 0 ?8 0 "Tibetan 1-col" "Tibetan 1 column" "Tibetan 1 column glyph"])
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
203
33044
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
204 ;; Subsets of Unicode.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
205
33044
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
206 (define-charset 242 'mule-unicode-2500-33ff
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
207 [2 96 1 0 ?2 0 "Unicode subset 2" "Unicode subset (U+2500..U+33FF)"
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
208 "Unicode characters of the range U+2500..U+33FF."])
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
209
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
210 (define-charset 243 'mule-unicode-e000-ffff
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
211 [2 96 1 0 ?3 0 "Unicode subset 3" "Unicode subset (U+E000+FFFF)"
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
212 "Unicode characters of the range U+E000..U+FFFF."])
7878d85aef6d New charsets mule-unicode-2500-33ff and mule-unicode-e000-ffff.
Kenichi Handa <handa@m17n.org>
parents: 32786
diff changeset
213
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
214 (define-charset 244 'mule-unicode-0100-24ff
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
215 [2 96 1 0 ?1 0 "Unicode subset" "Unicode subset (U+0100..U+24FF)"
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
216 "Unicode characters of the range U+0100..U+24FF."])
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
217
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
218 ;; 2-byte 2-column charsets. Valid range of CHARSET-ID is 245..254.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
219
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220 ;; Ethiopic characters (Amahric and Tigrigna).
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
221 (define-charset 245 'ethiopic
17176
12e0db4fd511 Change short and long names for Ethipic character set.
Kenichi Handa <handa@m17n.org>
parents: 17091
diff changeset
222 [2 94 2 0 ?3 0 "Ethiopic" "Ethiopic characters" "Ethiopic characters"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
224 ;; Chinese CNS11643 Plane3 thru Plane7. Although these are official
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
225 ;; character sets, the use is rare and don't have to be treated
26013
987e55950346 Add latin-iso8859-1[45].
Dave Love <fx@gnu.org>
parents: 24807
diff changeset
226 ;; space-efficiently in the buffer.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
227 (define-charset 246 'chinese-cns11643-3
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
228 [2 94 2 0 ?I 0 "CNS11643-3" "CNS11643-3 (Chinese traditional): ISO-IR-183"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
229 "CNS11643 Plane 3 Chinese Traditional: ISO-IR-183"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
230 (define-charset 247 'chinese-cns11643-4
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
231 [2 94 2 0 ?J 0 "CNS11643-4" "CNS11643-4 (Chinese traditional): ISO-IR-184"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
232 "CNS11643 Plane 4 Chinese Traditional: ISO-IR-184"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
233 (define-charset 248 'chinese-cns11643-5
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
234 [2 94 2 0 ?K 0 "CNS11643-5" "CNS11643-5 (Chinese traditional): ISO-IR-185"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
235 "CNS11643 Plane 5 Chinese Traditional: ISO-IR-185"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
236 (define-charset 249 'chinese-cns11643-6
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
237 [2 94 2 0 ?L 0 "CNS11643-6" "CNS11643-6 (Chinese traditional): ISO-IR-186"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
238 "CNS11643 Plane 6 Chinese Traditional: ISO-IR-186"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
239 (define-charset 250 'chinese-cns11643-7
28898
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
240 [2 94 2 0 ?M 0 "CNS11643-7" "CNS11643-7 (Chinese traditional): ISO-IR-187"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
241 "CNS11643 Plane 7 Chinese Traditional: ISO-IR-187"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
242
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243 ;; Actual Glyph for 2-column width.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
244 (define-charset 251 'indian-2-column
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
245 [2 94 2 0 ?5 0 "Indian 2-col" "Indian 2 Column"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246 "Indian charset for 2-column width glyphs"])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
248 ;; Tibetan script.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
249 (define-charset 252 'tibetan
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
250 [2 94 2 0 ?7 0 "Tibetan 2-col" "Tibetan 2 column" "Tibetan characters"])
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
251
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
252 ;; CHARSET-ID 253 is not used.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
253
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
254 ;; JISX0213 Plane 2
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
255 (define-charset 254 'japanese-jisx0213-2
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
256 [2 94 2 0 ?P 0 "JISX0213-2" "JISX0213-2" "JISX0213 Plane 2 (Japanese)"])
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
257
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
258 ;; Tell C code charset ID's of several charsets.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
259 (setup-special-charsets)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
261
22126
97cf1cae1971 Change term unification to
Kenichi Handa <handa@m17n.org>
parents: 21713
diff changeset
262 ;; These are tables for translating characters on decoding and
97cf1cae1971 Change term unification to
Kenichi Handa <handa@m17n.org>
parents: 21713
diff changeset
263 ;; encoding.
22186
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
264 (define-translation-table
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
265 'oldjis-newjis-jisroman-ascii
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
266 (list (cons (make-char 'japanese-jisx0208-1978)
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
267 (make-char 'japanese-jisx0208))
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
268 (cons (make-char 'latin-jisx0201) (make-char 'ascii))))
30259
e9a0d265b087 (oldjis-newjis-jisroman-ascii): Don't translate some national variant
Kenichi Handa <handa@m17n.org>
parents: 29543
diff changeset
269 (aset (get 'oldjis-newjis-jisroman-ascii 'translation-table)
e9a0d265b087 (oldjis-newjis-jisroman-ascii): Don't translate some national variant
Kenichi Handa <handa@m17n.org>
parents: 29543
diff changeset
270 (make-char 'latin-jisx0201 92) (make-char 'latin-jisx0201 92))
e9a0d265b087 (oldjis-newjis-jisroman-ascii): Don't translate some national variant
Kenichi Handa <handa@m17n.org>
parents: 29543
diff changeset
271 (aset (get 'oldjis-newjis-jisroman-ascii 'translation-table)
e9a0d265b087 (oldjis-newjis-jisroman-ascii): Don't translate some national variant
Kenichi Handa <handa@m17n.org>
parents: 29543
diff changeset
272 (make-char 'latin-jisx0201 126) (make-char 'latin-jisx0201 126))
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
273
22186
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
274 (setq standard-translation-table-for-decode
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
275 (get 'oldjis-newjis-jisroman-ascii 'translation-table))
17760
b3d62674b210 Delete code for alternate-charset-table.
Kenichi Handa <handa@m17n.org>
parents: 17541
diff changeset
276
22186
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
277 (setq standard-translation-table-for-encode nil)
17760
b3d62674b210 Delete code for alternate-charset-table.
Kenichi Handa <handa@m17n.org>
parents: 17541
diff changeset
278
b3d62674b210 Delete code for alternate-charset-table.
Kenichi Handa <handa@m17n.org>
parents: 17541
diff changeset
279
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
280 ;;; Make fundamental coding systems.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
281
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282 ;; Miscellaneous coding systems which can't be made by
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 ;; `make-coding-system'.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
285 (put 'no-conversion 'coding-system
36686
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
286 (vector nil ?= "Do no conversion.
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
287
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
288 When you visit a file with this coding, the file is read into a
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
289 unibyte buffer as is, thus each byte of a file is treated as a
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
290 character."
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
291 (list 'coding-category 'coding-category-binary
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
292 'alias-coding-systems '(no-conversion))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
293 nil))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294 (put 'no-conversion 'eol-type 0)
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
295 (put 'coding-category-binary 'coding-systems '(no-conversion))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
296 (setq coding-system-list '(no-conversion))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
297 (setq coding-system-alist '(("no-conversion")))
33933
8fefc1be4352 Make the coding system no-conversion safe for all characters.
Kenichi Handa <handa@m17n.org>
parents: 33221
diff changeset
298 (register-char-codings 'no-conversion t)
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
299
18529
8e293f1a19a9 (binary): Define as coding system alias.
Richard M. Stallman <rms@gnu.org>
parents: 18519
diff changeset
300 (define-coding-system-alias 'binary 'no-conversion)
8e293f1a19a9 (binary): Define as coding system alias.
Richard M. Stallman <rms@gnu.org>
parents: 18519
diff changeset
301
17839
b4a81f70d905 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17760
diff changeset
302 (put 'undecided 'coding-system
18663
8b53028950ae (undecided): Use `-' in mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18560
diff changeset
303 (vector t ?- "No conversion on encoding, automatic conversion on decoding"
24308
af1be3f3e04c (undecided): Set ascii in safe-charsets property.
Kenichi Handa <handa@m17n.org>
parents: 24120
diff changeset
304 (list 'alias-coding-systems '(undecided)
af1be3f3e04c (undecided): Set ascii in safe-charsets property.
Kenichi Handa <handa@m17n.org>
parents: 24120
diff changeset
305 'safe-charsets '(ascii))
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
306 nil))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
307 (setq coding-system-list (cons 'undecided coding-system-list))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
308 (setq coding-system-alist (cons '("undecided") coding-system-alist))
17839
b4a81f70d905 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17760
diff changeset
309 (put 'undecided 'eol-type
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
310 (make-subsidiary-coding-system 'undecided))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311
29543
4711a63436ee (unix): New alias for the coding system undecided-unix.
Kenichi Handa <handa@m17n.org>
parents: 29167
diff changeset
312 (define-coding-system-alias 'unix 'undecided-unix)
24120
372fcaa211c4 Coding system alias `dos' for `undecided-dos', `mac' for `undecided-mac'.
Richard M. Stallman <rms@gnu.org>
parents: 23260
diff changeset
313 (define-coding-system-alias 'dos 'undecided-dos)
372fcaa211c4 Coding system alias `dos' for `undecided-dos', `mac' for `undecided-mac'.
Richard M. Stallman <rms@gnu.org>
parents: 23260
diff changeset
314 (define-coding-system-alias 'mac 'undecided-mac)
372fcaa211c4 Coding system alias `dos' for `undecided-dos', `mac' for `undecided-mac'.
Richard M. Stallman <rms@gnu.org>
parents: 23260
diff changeset
315
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
316 ;; Coding systems not specific to each language environment.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
317
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
318 (make-coding-system
17839
b4a81f70d905 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17760
diff changeset
319 'emacs-mule 0 ?=
36518
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
320 "Emacs internal format used in buffer and string.
36686
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
321
36518
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
322 Encoding text with this coding system produces the actual byte
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
323 sequence of the text in buffers and strings. An exception is made for
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
324 eight-bit-control characters. Each of them is encoded into a single
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
325 byte."
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
326 nil
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
327 '((safe-charsets . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
328
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329 (make-coding-system
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
330 'raw-text 5 ?t
36518
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
331 "Raw text, which means text contains random 8-bit codes.
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
332 Encoding text with this coding system produces the actual byte
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
333 sequence of the text in buffers and strings. An exception is made for
60e98df5c4ce (emacs-mule, raw-text): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 35805
diff changeset
334 eight-bit-control characters. Each of them is encoded into a single
36686
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
335 byte.
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
336
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
337 When you visit a file with this coding, the file is read into a
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
338 unibyte buffer as is (except for EOL format), thus each byte of a file
9688519d51d6 (no-conversion): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 36518
diff changeset
339 is treated as a character."
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
340 nil
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
341 '((safe-charsets . t)))
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
342
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
343 (make-coding-system
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
344 'iso-2022-7bit 2 ?J
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
345 "ISO 2022 based 7-bit encoding using only G0"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 '((ascii t) nil nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
347 short ascii-eol ascii-cntl seven)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
348 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
349 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 (make-coding-system
18302
6fbbef4e6c39 Change mnemonic letters for iso-2022-7bit-ss2 and
Kenichi Handa <handa@m17n.org>
parents: 18196
diff changeset
352 'iso-2022-7bit-ss2 2 ?$
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
353 "ISO 2022 based 7-bit encoding using SS2 for 96-charset"
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
354 '((ascii t) nil t nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
355 short ascii-eol ascii-cntl seven nil single-shift)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
356 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
357 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
358
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 (make-coding-system
18302
6fbbef4e6c39 Change mnemonic letters for iso-2022-7bit-ss2 and
Kenichi Handa <handa@m17n.org>
parents: 18196
diff changeset
360 'iso-2022-7bit-lock 2 ?&
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
361 "ISO-2022 coding system using Locking-Shift for 96-charset"
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
362 '((ascii t) t nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
363 nil ascii-eol ascii-cntl seven locking-shift)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
364 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
365 (composition . t)))
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
366
18519
b6badf3614ea Fix calls to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
367 (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
368
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
369 (make-coding-system
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
370 'iso-2022-7bit-lock-ss2 2 ?i
17091
06d52b56fdd5 Add INIT-BOL to coding system iso-2022-cjk.
Kenichi Handa <handa@m17n.org>
parents: 17070
diff changeset
371 "Mixture of ISO-2022-JP, ISO-2022-KR, and ISO-2022-CN"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
372 '((ascii t)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373 (nil korean-ksc5601 chinese-gb2312 chinese-cns11643-1 t)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
374 (nil chinese-cns11643-2)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
375 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
376 chinese-cns11643-6 chinese-cns11643-7)
17091
06d52b56fdd5 Add INIT-BOL to coding system iso-2022-cjk.
Kenichi Handa <handa@m17n.org>
parents: 17070
diff changeset
377 short ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
378 init-bol)
24807
c116d722d662 (iso-2022-7bit-lock-ss2): Typo fixed.
Kenichi Handa <handa@m17n.org>
parents: 24619
diff changeset
379 '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978 latin-jisx0201
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
380 korean-ksc5601 chinese-gb2312 chinese-cns11643-1
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
381 chinese-cns11643-2 chinese-cns11643-3 chinese-cns11643-4
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
382 chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
383 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
384
18519
b6badf3614ea Fix calls to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
385 (define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
386
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387 (make-coding-system
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
388 'iso-2022-8bit-ss2 2 ?@
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
389 "ISO 2022 based 8-bit encoding using SS2 for 96-charset"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390 '((ascii t) nil t nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
391 nil ascii-eol ascii-cntl nil nil single-shift)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
392 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
393 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
394
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
395 (make-coding-system
33221
22ea1d0f7521 (compound-text): Define this coding system here. Make x-ctext and
Kenichi Handa <handa@m17n.org>
parents: 33044
diff changeset
396 'compound-text 2 ?x
24619
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
397 "Compound text based generic encoding for decoding unknown messages."
30260
9a6ed9372ae1 (x-ctext): Force katakana-jisx0201 to be designated to G1.
Kenichi Handa <handa@m17n.org>
parents: 30259
diff changeset
398 '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t
24619
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
399 nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
400 init-bol nil nil)
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
401 '((safe-charsets . t)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
402 (mime-charset . x-ctext)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
403 (composition . t)))
24619
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
404
33221
22ea1d0f7521 (compound-text): Define this coding system here. Make x-ctext and
Kenichi Handa <handa@m17n.org>
parents: 33044
diff changeset
405 (define-coding-system-alias 'x-ctext 'compound-text)
22ea1d0f7521 (compound-text): Define this coding system here. Make x-ctext and
Kenichi Handa <handa@m17n.org>
parents: 33044
diff changeset
406 (define-coding-system-alias 'ctext 'compound-text)
22ea1d0f7521 (compound-text): Define this coding system here. Make x-ctext and
Kenichi Handa <handa@m17n.org>
parents: 33044
diff changeset
407
24619
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
408 (make-coding-system
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
409 'iso-safe 2 ?-
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
410 "Convert all characters but ASCII to `?'."
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
411 '(ascii nil nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
412 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil t)
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
413 '((safe-charsets ascii)))
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
414
22985
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
415 ;; Use iso-safe for terminal output if some other coding system is not
23196
30beacf88b75 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 22985
diff changeset
416 ;; specified explicitly.
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
417 (set-safe-terminal-coding-system-internal 'iso-safe)
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
418
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 ;; The other coding-systems are defined in each language specific
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 ;; section of languages.el.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421
21713
aa160e4358ac (file-coding-system-alist): Use emacs-mule for .elc files.
Richard M. Stallman <rms@gnu.org>
parents: 20732
diff changeset
422 ;; Normally, set coding system to `undecided' before reading a file.
aa160e4358ac (file-coding-system-alist): Use emacs-mule for .elc files.
Richard M. Stallman <rms@gnu.org>
parents: 20732
diff changeset
423 ;; Compiled Emacs Lisp files (*.elc) are not decoded at all,
aa160e4358ac (file-coding-system-alist): Use emacs-mule for .elc files.
Richard M. Stallman <rms@gnu.org>
parents: 20732
diff changeset
424 ;; but we regard them as containing multibyte characters.
aa160e4358ac (file-coding-system-alist): Use emacs-mule for .elc files.
Richard M. Stallman <rms@gnu.org>
parents: 20732
diff changeset
425 ;; Tar files are not decoded at all, but we treat them as raw bytes.
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
427 (setq file-coding-system-alist
32228
6a5bae3ed1c1 file-coding-system-alist): Use \',
Dave Love <fx@gnu.org>
parents: 30260
diff changeset
428 '(("\\.elc\\'" . (emacs-mule . emacs-mule))
34264
b0c17ac74953 (file-coding-system-alist): Use
Eli Zaretskii <eliz@gnu.org>
parents: 33933
diff changeset
429 ;; We use raw-text for reading loaddefs.el so that if it
b0c17ac74953 (file-coding-system-alist): Use
Eli Zaretskii <eliz@gnu.org>
parents: 33933
diff changeset
430 ;; happens to have DOS or Mac EOLs, they are converted to
b0c17ac74953 (file-coding-system-alist): Use
Eli Zaretskii <eliz@gnu.org>
parents: 33933
diff changeset
431 ;; newlines. This is required to make the special treatment
b0c17ac74953 (file-coding-system-alist): Use
Eli Zaretskii <eliz@gnu.org>
parents: 33933
diff changeset
432 ;; of the "\ newline" combination in loaddefs.el, which marks
b0c17ac74953 (file-coding-system-alist): Use
Eli Zaretskii <eliz@gnu.org>
parents: 33933
diff changeset
433 ;; the beginning of a doc string, work.
b0c17ac74953 (file-coding-system-alist): Use
Eli Zaretskii <eliz@gnu.org>
parents: 33933
diff changeset
434 ("\\(\\`\\|/\\)loaddefs.el\\'" . (raw-text . raw-text-unix))
32228
6a5bae3ed1c1 file-coding-system-alist): Use \',
Dave Love <fx@gnu.org>
parents: 30260
diff changeset
435 ("\\.tar\\'" . (no-conversion . no-conversion))
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
436 ("" . (undecided . nil))))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
437
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 ;;; Setting coding categories and their priorities.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
440
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
441 ;; This setting is just to read an Emacs Lisp source files which
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
442 ;; contain multilingual text while dumping Emacs. More appropriate
18302
6fbbef4e6c39 Change mnemonic letters for iso-2022-7bit-ss2 and
Kenichi Handa <handa@m17n.org>
parents: 18196
diff changeset
443 ;; values are set by the command `set-language-environment' for each
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
444 ;; language environment.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
445
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
446 (setq coding-category-emacs-mule 'emacs-mule
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
447 coding-category-sjis 'japanese-shift-jis
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
448 coding-category-iso-7 'iso-2022-7bit
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
449 coding-category-iso-7-tight 'iso-2022-jp
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
450 coding-category-iso-8-1 'iso-latin-1
22985
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
451 coding-category-iso-8-2 'iso-latin-1
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
452 coding-category-iso-7-else 'iso-2022-7bit-lock
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
453 coding-category-iso-8-else 'iso-2022-8bit-ss2
22886
33a84416a33f Initialize coding-category-ccl to
Kenichi Handa <handa@m17n.org>
parents: 22186
diff changeset
454 coding-category-ccl nil
35539
57b31206dbfa (coding-category-utf-8): Initialize to mule-utf-8.
Kenichi Handa <handa@m17n.org>
parents: 35187
diff changeset
455 coding-category-utf-8 'mule-utf-8
28020
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
456 coding-category-utf-16-be nil
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
457 coding-category-utf-16-le nil
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
458 coding-category-big5 'chinese-big5
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
459 coding-category-raw-text 'raw-text
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
460 coding-category-binary 'no-conversion)
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
461
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
462 (set-coding-priority
22985
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
463 '(coding-category-iso-8-1
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
464 coding-category-iso-8-2
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
465 coding-category-iso-7-tight
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
466 coding-category-iso-7
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
467 coding-category-iso-7-else
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
468 coding-category-iso-8-else
17992
191bef5a0922 Set default value of coding-category-iso-else to
Kenichi Handa <handa@m17n.org>
parents: 17839
diff changeset
469 coding-category-emacs-mule
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
470 coding-category-raw-text
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
471 coding-category-sjis
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
472 coding-category-big5
22886
33a84416a33f Initialize coding-category-ccl to
Kenichi Handa <handa@m17n.org>
parents: 22186
diff changeset
473 coding-category-ccl
35555
6f60efe86358 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 35539
diff changeset
474 coding-category-binary
35539
57b31206dbfa (coding-category-utf-8): Initialize to mule-utf-8.
Kenichi Handa <handa@m17n.org>
parents: 35187
diff changeset
475 coding-category-utf-8
28020
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
476 coding-category-utf-16-be
35539
57b31206dbfa (coding-category-utf-8): Initialize to mule-utf-8.
Kenichi Handa <handa@m17n.org>
parents: 35187
diff changeset
477 coding-category-utf-16-le))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
478
19372
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
479
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
480 ;;; Miscellaneous settings.
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
481 (aset latin-extra-code-table ?\222 t)
35187
cb583146cc55 (latin-extra-code-table): Set to t for \223 and \224.
Kenichi Handa <handa@m17n.org>
parents: 34264
diff changeset
482 (aset latin-extra-code-table ?\223 t)
cb583146cc55 (latin-extra-code-table): Set to t for \223 and \224.
Kenichi Handa <handa@m17n.org>
parents: 34264
diff changeset
483 (aset latin-extra-code-table ?\224 t)
19372
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
484
23260
1e8cac8d2c50 Call update-coding-systems-internal at the tail.
Kenichi Handa <handa@m17n.org>
parents: 23196
diff changeset
485 (update-coding-systems-internal)
1e8cac8d2c50 Call update-coding-systems-internal at the tail.
Kenichi Handa <handa@m17n.org>
parents: 23196
diff changeset
486
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
487 ;;; mule-conf.el ends here