(insert-char-data): Change order.
[chise/xemacs-chise.git] / lisp / utf-2000 / ccs-jisx0201-latin.el
1 ;;; ccs-jisx0201-latin.el --- Mapping table for JIS X 0201-Latin.
2
3 ;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5
6 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
7 ;; Keywords: coded character set
8
9 ;; This file is part of UTF-2000.
10
11 ;; UTF-2000 is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; UTF-2000 is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with UTF-2000; see the file COPYING.  If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25
26 ;;; Code:
27
28 (set-charset-mapping-table
29  'latin-jisx0201
30  [?\u0021       ; 0x21  EXCLAMATION MARK
31   ?\u0022       ; 0x22  QUOTATION MARK
32   ?\u0023       ; 0x23  NUMBER SIGN
33   ?\u0024       ; 0x24  DOLLAR SIGN
34   ?\u0025       ; 0x25  PERCENT SIGN
35   ?\u0026       ; 0x26  AMPERSAND
36   ?\u0027       ; 0x27  APOSTROPHE
37   ?\u0028       ; 0x28  LEFT PARENTHESIS
38   ?\u0029       ; 0x29  RIGHT PARENTHESIS
39   ?\u002A       ; 0x2A  ASTERISK
40   ?\u002B       ; 0x2B  PLUS SIGN
41   ?\u002C       ; 0x2C  COMMA
42   ?\u002D       ; 0x2D  HYPHEN-MINUS
43   ?\u002E       ; 0x2E  FULL STOP
44   ?\u002F       ; 0x2F  SOLIDUS
45   ?\u0030       ; 0x30  DIGIT ZERO
46   ?\u0031       ; 0x31  DIGIT ONE
47   ?\u0032       ; 0x32  DIGIT TWO
48   ?\u0033       ; 0x33  DIGIT THREE
49   ?\u0034       ; 0x34  DIGIT FOUR
50   ?\u0035       ; 0x35  DIGIT FIVE
51   ?\u0036       ; 0x36  DIGIT SIX
52   ?\u0037       ; 0x37  DIGIT SEVEN
53   ?\u0038       ; 0x38  DIGIT EIGHT
54   ?\u0039       ; 0x39  DIGIT NINE
55   ?\u003A       ; 0x3A  COLON
56   ?\u003B       ; 0x3B  SEMICOLON
57   ?\u003C       ; 0x3C  LESS-THAN SIGN
58   ?\u003D       ; 0x3D  EQUALS SIGN
59   ?\u003E       ; 0x3E  GREATER-THAN SIGN
60   ?\u003F       ; 0x3F  QUESTION MARK
61   ?\u0040       ; 0x40  COMMERCIAL AT
62   ?\u0041       ; 0x41  LATIN CAPITAL LETTER A
63   ?\u0042       ; 0x42  LATIN CAPITAL LETTER B
64   ?\u0043       ; 0x43  LATIN CAPITAL LETTER C
65   ?\u0044       ; 0x44  LATIN CAPITAL LETTER D
66   ?\u0045       ; 0x45  LATIN CAPITAL LETTER E
67   ?\u0046       ; 0x46  LATIN CAPITAL LETTER F
68   ?\u0047       ; 0x47  LATIN CAPITAL LETTER G
69   ?\u0048       ; 0x48  LATIN CAPITAL LETTER H
70   ?\u0049       ; 0x49  LATIN CAPITAL LETTER I
71   ?\u004A       ; 0x4A  LATIN CAPITAL LETTER J
72   ?\u004B       ; 0x4B  LATIN CAPITAL LETTER K
73   ?\u004C       ; 0x4C  LATIN CAPITAL LETTER L
74   ?\u004D       ; 0x4D  LATIN CAPITAL LETTER M
75   ?\u004E       ; 0x4E  LATIN CAPITAL LETTER N
76   ?\u004F       ; 0x4F  LATIN CAPITAL LETTER O
77   ?\u0050       ; 0x50  LATIN CAPITAL LETTER P
78   ?\u0051       ; 0x51  LATIN CAPITAL LETTER Q
79   ?\u0052       ; 0x52  LATIN CAPITAL LETTER R
80   ?\u0053       ; 0x53  LATIN CAPITAL LETTER S
81   ?\u0054       ; 0x54  LATIN CAPITAL LETTER T
82   ?\u0055       ; 0x55  LATIN CAPITAL LETTER U
83   ?\u0056       ; 0x56  LATIN CAPITAL LETTER V
84   ?\u0057       ; 0x57  LATIN CAPITAL LETTER W
85   ?\u0058       ; 0x58  LATIN CAPITAL LETTER X
86   ?\u0059       ; 0x59  LATIN CAPITAL LETTER Y
87   ?\u005A       ; 0x5A  LATIN CAPITAL LETTER Z
88   ?\u005B       ; 0x5B  LEFT SQUARE BRACKET
89   ?\u00A5       ; 0x5C  YEN SIGN
90   ?\u005D       ; 0x5D  RIGHT SQUARE BRACKET
91   ?\u005E       ; 0x5E  CIRCUMFLEX ACCENT
92   ?\u005F       ; 0x5F  LOW LINE
93   ?\u0060       ; 0x60  GRAVE ACCENT
94   ?\u0061       ; 0x61  LATIN SMALL LETTER A
95   ?\u0062       ; 0x62  LATIN SMALL LETTER B
96   ?\u0063       ; 0x63  LATIN SMALL LETTER C
97   ?\u0064       ; 0x64  LATIN SMALL LETTER D
98   ?\u0065       ; 0x65  LATIN SMALL LETTER E
99   ?\u0066       ; 0x66  LATIN SMALL LETTER F
100   ?\u0067       ; 0x67  LATIN SMALL LETTER G
101   ?\u0068       ; 0x68  LATIN SMALL LETTER H
102   ?\u0069       ; 0x69  LATIN SMALL LETTER I
103   ?\u006A       ; 0x6A  LATIN SMALL LETTER J
104   ?\u006B       ; 0x6B  LATIN SMALL LETTER K
105   ?\u006C       ; 0x6C  LATIN SMALL LETTER L
106   ?\u006D       ; 0x6D  LATIN SMALL LETTER M
107   ?\u006E       ; 0x6E  LATIN SMALL LETTER N
108   ?\u006F       ; 0x6F  LATIN SMALL LETTER O
109   ?\u0070       ; 0x70  LATIN SMALL LETTER P
110   ?\u0071       ; 0x71  LATIN SMALL LETTER Q
111   ?\u0072       ; 0x72  LATIN SMALL LETTER R
112   ?\u0073       ; 0x73  LATIN SMALL LETTER S
113   ?\u0074       ; 0x74  LATIN SMALL LETTER T
114   ?\u0075       ; 0x75  LATIN SMALL LETTER U
115   ?\u0076       ; 0x76  LATIN SMALL LETTER V
116   ?\u0077       ; 0x77  LATIN SMALL LETTER W
117   ?\u0078       ; 0x78  LATIN SMALL LETTER X
118   ?\u0079       ; 0x79  LATIN SMALL LETTER Y
119   ?\u007A       ; 0x7A  LATIN SMALL LETTER Z
120   ?\u007B       ; 0x7B  LEFT CURLY BRACKET
121   ?\u007C       ; 0x7C  VERTICAL LINE
122   ?\u007D       ; 0x7D  RIGHT CURLY BRACKET
123   ?\u203E       ; 0x7E  OVERLINE
124   ])
125
126 ;;; ccs-jisx0201-latin.el ends here