annotate lisp/international/mule-conf.el @ 30809:3aa7c156087a

(change-log-merge): Doc fix. (change-log-redate): New command.
author Dave Love <fx@gnu.org>
date Tue, 15 Aug 2000 13:26:16 +0000
parents 9a6ed9372ae1
children 6a5bae3ed1c1
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"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
121 "Frequentry 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"
a17b5669e2df Add more information in descriptions of character sets.
Kenichi Handa <handa@m17n.org>
parents: 28020
diff changeset
124 "Less frequentry 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
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
177 ;; CHARSET-IDs 168..223 are not used.
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
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
204 ;; CHARSET-IDs 242 and 243 are not used.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
205
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
206 ;; Subset of Unicode.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
207 (define-charset 244 'mule-unicode-0100-24ff
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
208 [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
209 "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
210
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
211 ;; 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
212
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 ;; Ethiopic characters (Amahric and Tigrigna).
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
214 (define-charset 245 'ethiopic
17176
12e0db4fd511 Change short and long names for Ethipic character set.
Kenichi Handa <handa@m17n.org>
parents: 17091
diff changeset
215 [2 94 2 0 ?3 0 "Ethiopic" "Ethiopic characters" "Ethiopic characters"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217 ;; Chinese CNS11643 Plane3 thru Plane7. Although these are official
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218 ;; 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
219 ;; space-efficiently in the buffer.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
220 (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
221 [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
222 "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
223 (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
224 [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
225 "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
226 (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
227 [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
228 "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
229 (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
230 [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
231 "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
232 (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
233 [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
234 "CNS11643 Plane 7 Chinese Traditional: ISO-IR-187"])
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236 ;; Actual Glyph for 2-column width.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
237 (define-charset 251 'indian-2-column
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
238 [2 94 2 0 ?5 0 "Indian 2-col" "Indian 2 Column"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
239 "Indian charset for 2-column width glyphs"])
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
240
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
241 ;; Tibetan script.
29167
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
242 (define-charset 252 'tibetan
17293
273b0cd6aac4 Change descriptions for Arabic, Indian, and
Kenichi Handa <handa@m17n.org>
parents: 17176
diff changeset
243 [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
244
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
245 ;; CHARSET-ID 253 is not used.
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
246
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
247 ;; JISX0213 Plane 2
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
248 (define-charset 254 'japanese-jisx0213-2
7b645b883dcb Specify CHARSET-ID explicitely for private charsets.
Kenichi Handa <handa@m17n.org>
parents: 28951
diff changeset
249 [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
250
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 ;; Tell C code charset ID's of several charsets.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252 (setup-special-charsets)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254
22126
97cf1cae1971 Change term unification to
Kenichi Handa <handa@m17n.org>
parents: 21713
diff changeset
255 ;; These are tables for translating characters on decoding and
97cf1cae1971 Change term unification to
Kenichi Handa <handa@m17n.org>
parents: 21713
diff changeset
256 ;; encoding.
22186
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
257 (define-translation-table
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
258 'oldjis-newjis-jisroman-ascii
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
259 (list (cons (make-char 'japanese-jisx0208-1978)
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
260 (make-char 'japanese-jisx0208))
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
261 (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
262 (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
263 (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
264 (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
265 (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
266
22186
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
267 (setq standard-translation-table-for-decode
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
268 (get 'oldjis-newjis-jisroman-ascii 'translation-table))
17760
b3d62674b210 Delete code for alternate-charset-table.
Kenichi Handa <handa@m17n.org>
parents: 17541
diff changeset
269
22186
fc4aaf1b1772 Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents: 22126
diff changeset
270 (setq standard-translation-table-for-encode nil)
17760
b3d62674b210 Delete code for alternate-charset-table.
Kenichi Handa <handa@m17n.org>
parents: 17541
diff changeset
271
b3d62674b210 Delete code for alternate-charset-table.
Kenichi Handa <handa@m17n.org>
parents: 17541
diff changeset
272
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
273 ;;; Make fundamental coding systems.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 ;; Miscellaneous coding systems which can't be made by
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276 ;; `make-coding-system'.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
277
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
278 (put 'no-conversion 'coding-system
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
279 (vector nil ?= "Do no conversion"
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
280 (list 'coding-category 'coding-category-binary
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
281 'alias-coding-systems '(no-conversion))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
282 nil))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 (put 'no-conversion 'eol-type 0)
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
284 (put 'coding-category-binary 'coding-systems '(no-conversion))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
285 (setq coding-system-list '(no-conversion))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
286 (setq coding-system-alist '(("no-conversion")))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
287
18529
8e293f1a19a9 (binary): Define as coding system alias.
Richard M. Stallman <rms@gnu.org>
parents: 18519
diff changeset
288 (define-coding-system-alias 'binary 'no-conversion)
8e293f1a19a9 (binary): Define as coding system alias.
Richard M. Stallman <rms@gnu.org>
parents: 18519
diff changeset
289
17839
b4a81f70d905 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17760
diff changeset
290 (put 'undecided 'coding-system
18663
8b53028950ae (undecided): Use `-' in mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18560
diff changeset
291 (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
292 (list 'alias-coding-systems '(undecided)
af1be3f3e04c (undecided): Set ascii in safe-charsets property.
Kenichi Handa <handa@m17n.org>
parents: 24120
diff changeset
293 'safe-charsets '(ascii))
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
294 nil))
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
295 (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
296 (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
297 (put 'undecided 'eol-type
20115
99b8a866c50a Change the way of making coding
Kenichi Handa <handa@m17n.org>
parents: 19733
diff changeset
298 (make-subsidiary-coding-system 'undecided))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
299
29543
4711a63436ee (unix): New alias for the coding system undecided-unix.
Kenichi Handa <handa@m17n.org>
parents: 29167
diff changeset
300 (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
301 (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
302 (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
303
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
304 ;; Coding systems not specific to each language environment.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
305
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
306 (make-coding-system
17839
b4a81f70d905 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17760
diff changeset
307 'emacs-mule 0 ?=
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
308 "Emacs internal format used in buffer and string"
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
309 nil
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
310 '((safe-charsets . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312 (make-coding-system
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
313 'raw-text 5 ?t
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
314 "Raw text, which means text contains random 8-bit codes."
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
315 nil
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
316 '((safe-charsets . t)))
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
317
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
318 (make-coding-system
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
319 'iso-2022-7bit 2 ?J
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
320 "ISO 2022 based 7-bit encoding using only G0"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
321 '((ascii t) nil nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
322 short ascii-eol ascii-cntl seven)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
323 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
324 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
326 (make-coding-system
18302
6fbbef4e6c39 Change mnemonic letters for iso-2022-7bit-ss2 and
Kenichi Handa <handa@m17n.org>
parents: 18196
diff changeset
327 'iso-2022-7bit-ss2 2 ?$
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
328 "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
329 '((ascii t) nil t nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
330 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
331 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
332 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
333
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
334 (make-coding-system
18302
6fbbef4e6c39 Change mnemonic letters for iso-2022-7bit-ss2 and
Kenichi Handa <handa@m17n.org>
parents: 18196
diff changeset
335 'iso-2022-7bit-lock 2 ?&
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
336 "ISO-2022 coding system using Locking-Shift for 96-charset"
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
337 '((ascii t) t nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
338 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
339 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
340 (composition . t)))
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
341
18519
b6badf3614ea Fix calls to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
342 (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
343
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
344 (make-coding-system
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
345 '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
346 "Mixture of ISO-2022-JP, ISO-2022-KR, and ISO-2022-CN"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 '((ascii t)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (nil korean-ksc5601 chinese-gb2312 chinese-cns11643-1 t)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349 (nil chinese-cns11643-2)
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 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
352 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
353 init-bol)
24807
c116d722d662 (iso-2022-7bit-lock-ss2): Typo fixed.
Kenichi Handa <handa@m17n.org>
parents: 24619
diff changeset
354 '((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
355 korean-ksc5601 chinese-gb2312 chinese-cns11643-1
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
356 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
357 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
358 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359
18519
b6badf3614ea Fix calls to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
360 (define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
361
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362 (make-coding-system
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
363 'iso-2022-8bit-ss2 2 ?@
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
364 "ISO 2022 based 8-bit encoding using SS2 for 96-charset"
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
365 '((ascii t) nil t nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
366 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
367 '((safe-charsets . t)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
368 (composition . t)))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
370 (make-coding-system
24619
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
371 'x-ctext 2 ?x
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
372 "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
373 '((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
374 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
375 init-bol nil nil)
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
376 '((safe-charsets . t)
26889
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
377 (mime-charset . x-ctext)
8ce2101d81c0 (iso-2022-7bit, iso-2022-7bit-ss2
Kenichi Handa <handa@m17n.org>
parents: 26013
diff changeset
378 (composition . t)))
24619
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
379
6057f7a48050 (x-ctext): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 24308
diff changeset
380 (make-coding-system
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
381 'iso-safe 2 ?-
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
382 "Convert all characters but ASCII to `?'."
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
383 '(ascii nil nil nil
20164
966231174701 Give proper SAFE_CHARSET argument in
Kenichi Handa <handa@m17n.org>
parents: 20115
diff changeset
384 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
385 '((safe-charsets ascii)))
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
386
22985
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
387 ;; 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
388 ;; specified explicitly.
19266
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
389 (set-safe-terminal-coding-system-internal 'iso-safe)
a042f26b7a4c (iso-safe): New coding system.
Kenichi Handa <handa@m17n.org>
parents: 19005
diff changeset
390
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
391 ;; The other coding-systems are defined in each language specific
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
392 ;; section of languages.el.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
393
21713
aa160e4358ac (file-coding-system-alist): Use emacs-mule for .elc files.
Richard M. Stallman <rms@gnu.org>
parents: 20732
diff changeset
394 ;; 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
395 ;; 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
396 ;; 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
397 ;; 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
398
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
399 (setq file-coding-system-alist
21713
aa160e4358ac (file-coding-system-alist): Use emacs-mule for .elc files.
Richard M. Stallman <rms@gnu.org>
parents: 20732
diff changeset
400 '(("\\.elc$" . (emacs-mule . emacs-mule))
19733
59d864067cdb (file-coding-system-alist): Match `loaddefs.el' more accurately.
Richard M. Stallman <rms@gnu.org>
parents: 19607
diff changeset
401 ("\\(\\`\\|/\\)loaddefs.el$" . (no-conversion . no-conversion))
19005
b07745668138 (file-coding-system-alist): Use no-conversion for tar files.
Richard M. Stallman <rms@gnu.org>
parents: 18800
diff changeset
402 ("\\.tar$" . (no-conversion . no-conversion))
18196
85354a726fa5 Coding system names changed.
Kenichi Handa <handa@m17n.org>
parents: 17992
diff changeset
403 ("" . (undecided . nil))))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
405
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406 ;;; Setting coding categories and their priorities.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
408 ;; This setting is just to read an Emacs Lisp source files which
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
409 ;; 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
410 ;; values are set by the command `set-language-environment' for each
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
411 ;; language environment.
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412
18800
afc6404f9637 (coding-category-emacs-mule): Replace coding-category-iso-else with
Kenichi Handa <handa@m17n.org>
parents: 18663
diff changeset
413 (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
414 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
415 coding-category-iso-7 'iso-2022-7bit
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
416 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
417 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
418 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
419 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
420 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
421 coding-category-ccl nil
28020
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
422 coding-category-utf-8 nil
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
423 coding-category-utf-16-be nil
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
424 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
425 coding-category-big5 'chinese-big5
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
426 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
427 coding-category-binary 'no-conversion)
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
429 (set-coding-priority
22985
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
430 '(coding-category-iso-8-1
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
431 coding-category-iso-8-2
596e4e490901 (iso-safe): Comment for this coding system fixed.
Kenichi Handa <handa@m17n.org>
parents: 22886
diff changeset
432 coding-category-iso-7-tight
20732
7187fdedb775 Adjusted for the change of the
Kenichi Handa <handa@m17n.org>
parents: 20164
diff changeset
433 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
434 coding-category-iso-7-else
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
435 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
436 coding-category-emacs-mule
19607
ea0964347a40 (raw-text): New coding system. Set
Kenichi Handa <handa@m17n.org>
parents: 19372
diff changeset
437 coding-category-raw-text
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 coding-category-sjis
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 coding-category-big5
22886
33a84416a33f Initialize coding-category-ccl to
Kenichi Handa <handa@m17n.org>
parents: 22186
diff changeset
440 coding-category-ccl
28020
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
441 coding-category-binary
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
442 coding-category-utf-16-be
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
443 coding-category-utf-16-le
7781c4bf73cb (coding-category-utf-8,
Kenichi Handa <handa@m17n.org>
parents: 26889
diff changeset
444 coding-category-utf-8))
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
445
19372
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
446
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
447 ;;; Miscellaneous settings.
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
448 (aset latin-extra-code-table ?\222 t)
d9d25c2a6cd4 Set 146th element of
Kenichi Handa <handa@m17n.org>
parents: 19266
diff changeset
449
23260
1e8cac8d2c50 Call update-coding-systems-internal at the tail.
Kenichi Handa <handa@m17n.org>
parents: 23196
diff changeset
450 (update-coding-systems-internal)
1e8cac8d2c50 Call update-coding-systems-internal at the tail.
Kenichi Handa <handa@m17n.org>
parents: 23196
diff changeset
451
17070
616c024f4e84 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
452 ;;; mule-conf.el ends here