+
(setq preloaded-file-list
(assemble-list
"backquote" ; needed for defsubst etc.
(when-feature file-coding "code-cmds")
;;;;;;;;;;;;;;;;;; MULE support
(when-feature mule "mule-conf")
- (when-feature utf-2000 "ccs-jisx0201-latin.el")
- (when-feature utf-2000 "ccs-jisx0208-1983.el")
- (when-feature utf-2000 "u00000-C0")
- (when-feature utf-2000 "u00020-Basic-Latin")
- (when-feature utf-2000 "u00080-C1")
- (when-feature utf-2000 "u000A0-Latin-1-Supplement")
- (when-feature utf-2000 "u00100-Latin-Extended-A")
- (when-feature utf-2000 "u00180-Latin-Extended-B")
- (when-feature utf-2000 "u00250-IPA-Extensions")
- (when-feature utf-2000 "u002B0-Spacing-Modifier-Letters")
- (when-feature utf-2000 "u00300-Combining-Diacritical-Marks")
- (when-feature utf-2000 "u00370-Greek")
+ (when-feature utf-2000 "ccs-jisx0208-1983.el")
+ (when-feature utf-2000 "u00000-C0")
+ (when-feature utf-2000 "u00020-Basic-Latin")
+ (when-feature utf-2000 "u00080-C1")
+ (when-feature utf-2000 "u000A0-Latin-1-Supplement")
+ (when-feature utf-2000 "u00100-Latin-Extended-A")
+ (when-feature utf-2000 "u00180-Latin-Extended-B")
+ (when-feature utf-2000 "u00250-IPA-Extensions")
+ (when-feature utf-2000 "u002B0-Spacing-Modifier-Letters")
+ (when-feature utf-2000 "u00300-Combining-Diacritical-Marks")
+ (when-feature utf-2000 "u00370-Greek")
(when-feature utf-2000 "u00400-Cyrillic")
-; (when-feature utf-2000 "u00530-Armenian")
- (when-feature utf-2000 "u00590-Hebrew")
- (when-feature utf-2000 "u00600-Arabic")
-; (when-feature utf-2000 "u00700-Syriac")
-; (when-feature utf-2000 "u00780-Thaana")
-; (when-feature utf-2000 "u00900-Devanagari")
-; (when-feature utf-2000 "u00980-Bengali")
-; (when-feature utf-2000 "u00A00-Gurmukhi")
-; (when-feature utf-2000 "u00A80-Gujarati")
-; (when-feature utf-2000 "u00B00-Oriya")
-; (when-feature utf-2000 "u00B80-Tamil")
-; (when-feature utf-2000 "u00C00-Telugu")
-; (when-feature utf-2000 "u00C80-Kannada")
-; (when-feature utf-2000 "u00D00-Malayalam")
-; (when-feature utf-2000 "u00D80-Sinhala")
- (when-feature utf-2000 "u00E00-Thai")
- (when-feature utf-2000 "u00E80-Lao")
-; (when-feature utf-2000 "u00F00-Tibetan")
-; (when-feature utf-2000 "u01000-Myanmar")
-; (when-feature utf-2000 "u010A0-Georgian")
- (when-feature utf-2000 "u01100-Hangul-Jamo")
- (when-feature utf-2000 "u01200-Ethiopic")
-; (when-feature utf-2000 "u013A0-Cherokee")
-; (when-feature utf-2000 "u01400-Canadian")
-; (when-feature utf-2000 "u01680-Ogham")
-; (when-feature utf-2000 "u016A0-Runic")
-; (when-feature utf-2000 "u01780-Khmer")
-; (when-feature utf-2000 "u01800-Mongolian")
- (when-feature utf-2000 "u01E00-Latin-Extended-Additional")
-; (when-feature utf-2000 "u01F00-Greek-Extended")
- (when-feature utf-2000 "u02000-General-Punctuation")
- (when-feature utf-2000 "u02070-Superscripts")
- (when-feature utf-2000 "u02080-Subscripts")
- (when-feature utf-2000 "u020A0-Currency-Symbols")
-; (when-feature utf-2000
-; "u020D0-Combining-Diacritical-Marks-for-Symbols")
- (when-feature utf-2000 "u02100-Letterlike-Symbols")
- (when-feature utf-2000 "u02150-Number-Forms")
- (when-feature utf-2000 "u02190-Arrows")
- (when-feature utf-2000 "u02200-Mathematical-Operators")
-; (when-feature utf-2000 "u02300-Miscellaneous-Technical")
-; (when-feature utf-2000 "u02400-Control-Pictures")
-; (when-feature utf-2000 "u02440-OCR")
-; (when-feature utf-2000 "u02460-Enclosed-Alphanumerics")
-; (when-feature utf-2000 "u02500-Box-Drawing")
-; (when-feature utf-2000 "u02580-Block-Elements")
-; (when-feature utf-2000 "u025A0-Geometric-Shapes")
-; (when-feature utf-2000 "u02600-Miscellaneous-Symbols")
-; (when-feature utf-2000 "u02700-Dingbats")
-; (when-feature utf-2000 "u02800-Braille-Patterns")
-; (when-feature utf-2000 "u02E00-CJK-Radical-Supplement")
-; (when-feature utf-2000 "u02F00-Kangxi-Radicals")
-; (when-feature utf-2000 "u02FF0-Ideographic-Description-Characters")
-; (when-feature utf-2000 "u03000-CJK-Symbols-and-Punctuation")
-; (when-feature utf-2000 "u03040-Hiragana")
-; (when-feature utf-2000 "u030A0-Katakana")
-; (when-feature utf-2000 "u03100-Bopomofo")
-; (when-feature utf-2000 "u03130-Hangul-Compatibility-Jamo")
-; (when-feature utf-2000 "u03190-Kanbun")
-; (when-feature utf-2000 "u031A0-Extended-Bopomofo")
-; (when-feature utf-2000 "u03200-Enclosed-CJK-Letters-and-Months")
-; (when-feature utf-2000 "u03300-CJK-Compatibility")
+; (when-feature utf-2000 "u00530-Armenian")
+ (when-feature utf-2000 "u00590-Hebrew")
+; (when-feature utf-2000 "u00600-Arabic")
+; (when-feature utf-2000 "u00700-Syriac")
+; (when-feature utf-2000 "u00780-Thaana")
+; (when-feature utf-2000 "u00900-Devanagari")
+; (when-feature utf-2000 "u00980-Bengali")
+; (when-feature utf-2000 "u00A00-Gurmukhi")
+; (when-feature utf-2000 "u00A80-Gujarati")
+; (when-feature utf-2000 "u00B00-Oriya")
+; (when-feature utf-2000 "u00B80-Tamil")
+; (when-feature utf-2000 "u00C00-Telugu")
+; (when-feature utf-2000 "u00C80-Kannada")
+; (when-feature utf-2000 "u00D00-Malayalam")
+; (when-feature utf-2000 "u00D80-Sinhala")
+; (when-feature utf-2000 "u00E00-Thai")
+; (when-feature utf-2000 "u00E80-Lao")
+; (when-feature utf-2000 "u00F00-Tibetan")
+; (when-feature utf-2000 "u01000-Myanmar")
+; (when-feature utf-2000 "u010A0-Georgian")
+ (when-feature utf-2000 "u01100-Hangul-Jamo")
+ (when-feature utf-2000 "u01200-Ethiopic")
+; (when-feature utf-2000 "u013A0-Cherokee")
+; (when-feature utf-2000 "u01400-Canadian")
+; (when-feature utf-2000 "u01680-Ogham")
+; (when-feature utf-2000 "u016A0-Runic")
+; (when-feature utf-2000 "u01780-Khmer")
+; (when-feature utf-2000 "u01800-Mongolian")
+ (when-feature utf-2000 "u01E00-Latin-Extended-Additional")
+; (when-feature utf-2000 "u01F00-Greek-Extended")
+; (when-feature utf-2000 "u02000-General-Punctuation")
+; (when-feature utf-2000 "u02070-Superscripts")
+; (when-feature utf-2000 "u02080-Subscripts")
+; (when-feature utf-2000 "u020A0-Currency-Symbols")
+; (when-feature utf-2000
+; "u020D0-Combining-Diacritical-Marks-for-Symbols")
+; (when-feature utf-2000 "u02100-Letterlike-Symbols")
+; (when-feature utf-2000 "u02150-Number-Forms")
+; (when-feature utf-2000 "u02190-Arrows")
+; (when-feature utf-2000 "u02200-Mathematical-Operators")
+; (when-feature utf-2000 "u02300-Miscellaneous-Technical")
+; (when-feature utf-2000 "u02400-Control-Pictures")
+; (when-feature utf-2000 "u02440-OCR")
+; (when-feature utf-2000 "u02460-Enclosed-Alphanumerics")
+; (when-feature utf-2000 "u02500-Box-Drawing")
+; (when-feature utf-2000 "u02580-Block-Elements")
+; (when-feature utf-2000 "u025A0-Geometric-Shapes")
+; (when-feature utf-2000 "u02600-Miscellaneous-Symbols")
+; (when-feature utf-2000 "u02700-Dingbats")
+; (when-feature utf-2000 "u02800-Braille-Patterns")
+; (when-feature utf-2000 "u02E00-CJK-Radical-Supplement")
+; (when-feature utf-2000 "u02F00-Kangxi-Radicals")
+; (when-feature utf-2000 "u02FF0-Ideographic-Description-Characters")
+; (when-feature utf-2000 "u03000-CJK-Symbols-and-Punctuation")
+; (when-feature utf-2000 "u03040-Hiragana")
+; (when-feature utf-2000 "u030A0-Katakana")
+; (when-feature utf-2000 "u03100-Bopomofo")
+; (when-feature utf-2000 "u03130-Hangul-Compatibility-Jamo")
+; (when-feature utf-2000 "u03190-Kanbun")
+; (when-feature utf-2000 "u031A0-Extended-Bopomofo")
+; (when-feature utf-2000 "u03200-Enclosed-CJK-Letters-and-Months")
+; (when-feature utf-2000 "u03300-CJK-Compatibility")
(when-feature mule "mule-charset")
(when-feature mule "mule-coding")
;; All files after this can have extended characters in them.
+++ /dev/null
-;;; ccs-jisx0201-latin.el --- Mapping table for JIS X 0201-Latin.
-
-;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
-
-;; Author: MORIOKA Tomohiko <tomo@m17n.org>
-;; Keywords: coded character set
-
-;; This file is part of UTF-2000.
-
-;; UTF-2000 is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; UTF-2000 is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with UTF-2000; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(set-charset-mapping-table
- 'latin-jisx0201
- [?\u0021 ; 0x21 EXCLAMATION MARK
- ?\u0022 ; 0x22 QUOTATION MARK
- ?\u0023 ; 0x23 NUMBER SIGN
- ?\u0024 ; 0x24 DOLLAR SIGN
- ?\u0025 ; 0x25 PERCENT SIGN
- ?\u0026 ; 0x26 AMPERSAND
- ?\u0027 ; 0x27 APOSTROPHE
- ?\u0028 ; 0x28 LEFT PARENTHESIS
- ?\u0029 ; 0x29 RIGHT PARENTHESIS
- ?\u002A ; 0x2A ASTERISK
- ?\u002B ; 0x2B PLUS SIGN
- ?\u002C ; 0x2C COMMA
- ?\u002D ; 0x2D HYPHEN-MINUS
- ?\u002E ; 0x2E FULL STOP
- ?\u002F ; 0x2F SOLIDUS
- ?\u0030 ; 0x30 DIGIT ZERO
- ?\u0031 ; 0x31 DIGIT ONE
- ?\u0032 ; 0x32 DIGIT TWO
- ?\u0033 ; 0x33 DIGIT THREE
- ?\u0034 ; 0x34 DIGIT FOUR
- ?\u0035 ; 0x35 DIGIT FIVE
- ?\u0036 ; 0x36 DIGIT SIX
- ?\u0037 ; 0x37 DIGIT SEVEN
- ?\u0038 ; 0x38 DIGIT EIGHT
- ?\u0039 ; 0x39 DIGIT NINE
- ?\u003A ; 0x3A COLON
- ?\u003B ; 0x3B SEMICOLON
- ?\u003C ; 0x3C LESS-THAN SIGN
- ?\u003D ; 0x3D EQUALS SIGN
- ?\u003E ; 0x3E GREATER-THAN SIGN
- ?\u003F ; 0x3F QUESTION MARK
- ?\u0040 ; 0x40 COMMERCIAL AT
- ?\u0041 ; 0x41 LATIN CAPITAL LETTER A
- ?\u0042 ; 0x42 LATIN CAPITAL LETTER B
- ?\u0043 ; 0x43 LATIN CAPITAL LETTER C
- ?\u0044 ; 0x44 LATIN CAPITAL LETTER D
- ?\u0045 ; 0x45 LATIN CAPITAL LETTER E
- ?\u0046 ; 0x46 LATIN CAPITAL LETTER F
- ?\u0047 ; 0x47 LATIN CAPITAL LETTER G
- ?\u0048 ; 0x48 LATIN CAPITAL LETTER H
- ?\u0049 ; 0x49 LATIN CAPITAL LETTER I
- ?\u004A ; 0x4A LATIN CAPITAL LETTER J
- ?\u004B ; 0x4B LATIN CAPITAL LETTER K
- ?\u004C ; 0x4C LATIN CAPITAL LETTER L
- ?\u004D ; 0x4D LATIN CAPITAL LETTER M
- ?\u004E ; 0x4E LATIN CAPITAL LETTER N
- ?\u004F ; 0x4F LATIN CAPITAL LETTER O
- ?\u0050 ; 0x50 LATIN CAPITAL LETTER P
- ?\u0051 ; 0x51 LATIN CAPITAL LETTER Q
- ?\u0052 ; 0x52 LATIN CAPITAL LETTER R
- ?\u0053 ; 0x53 LATIN CAPITAL LETTER S
- ?\u0054 ; 0x54 LATIN CAPITAL LETTER T
- ?\u0055 ; 0x55 LATIN CAPITAL LETTER U
- ?\u0056 ; 0x56 LATIN CAPITAL LETTER V
- ?\u0057 ; 0x57 LATIN CAPITAL LETTER W
- ?\u0058 ; 0x58 LATIN CAPITAL LETTER X
- ?\u0059 ; 0x59 LATIN CAPITAL LETTER Y
- ?\u005A ; 0x5A LATIN CAPITAL LETTER Z
- ?\u005B ; 0x5B LEFT SQUARE BRACKET
- ?\u00A5 ; 0x5C YEN SIGN
- ?\u005D ; 0x5D RIGHT SQUARE BRACKET
- ?\u005E ; 0x5E CIRCUMFLEX ACCENT
- ?\u005F ; 0x5F LOW LINE
- ?\u0060 ; 0x60 GRAVE ACCENT
- ?\u0061 ; 0x61 LATIN SMALL LETTER A
- ?\u0062 ; 0x62 LATIN SMALL LETTER B
- ?\u0063 ; 0x63 LATIN SMALL LETTER C
- ?\u0064 ; 0x64 LATIN SMALL LETTER D
- ?\u0065 ; 0x65 LATIN SMALL LETTER E
- ?\u0066 ; 0x66 LATIN SMALL LETTER F
- ?\u0067 ; 0x67 LATIN SMALL LETTER G
- ?\u0068 ; 0x68 LATIN SMALL LETTER H
- ?\u0069 ; 0x69 LATIN SMALL LETTER I
- ?\u006A ; 0x6A LATIN SMALL LETTER J
- ?\u006B ; 0x6B LATIN SMALL LETTER K
- ?\u006C ; 0x6C LATIN SMALL LETTER L
- ?\u006D ; 0x6D LATIN SMALL LETTER M
- ?\u006E ; 0x6E LATIN SMALL LETTER N
- ?\u006F ; 0x6F LATIN SMALL LETTER O
- ?\u0070 ; 0x70 LATIN SMALL LETTER P
- ?\u0071 ; 0x71 LATIN SMALL LETTER Q
- ?\u0072 ; 0x72 LATIN SMALL LETTER R
- ?\u0073 ; 0x73 LATIN SMALL LETTER S
- ?\u0074 ; 0x74 LATIN SMALL LETTER T
- ?\u0075 ; 0x75 LATIN SMALL LETTER U
- ?\u0076 ; 0x76 LATIN SMALL LETTER V
- ?\u0077 ; 0x77 LATIN SMALL LETTER W
- ?\u0078 ; 0x78 LATIN SMALL LETTER X
- ?\u0079 ; 0x79 LATIN SMALL LETTER Y
- ?\u007A ; 0x7A LATIN SMALL LETTER Z
- ?\u007B ; 0x7B LEFT CURLY BRACKET
- ?\u007C ; 0x7C VERTICAL LINE
- ?\u007D ; 0x7D RIGHT CURLY BRACKET
- ?\u203E ; 0x7E OVERLINE
- ])
-
-;;; ccs-jisx0201-latin.el ends here
Lisp_Object Vcharset_latin_viscii;
Lisp_Object Vcharset_latin_viscii_lower;
Lisp_Object Vcharset_latin_viscii_upper;
+Lisp_Object Vcharset_ideograph_daikanwa;
+Lisp_Object Vcharset_mojikyo_pj_1;
+Lisp_Object Vcharset_mojikyo_pj_2;
+Lisp_Object Vcharset_mojikyo_pj_3;
+Lisp_Object Vcharset_mojikyo_pj_4;
+Lisp_Object Vcharset_mojikyo_pj_5;
+Lisp_Object Vcharset_mojikyo_pj_6;
+Lisp_Object Vcharset_mojikyo_pj_7;
+Lisp_Object Vcharset_mojikyo_pj_8;
+Lisp_Object Vcharset_mojikyo_pj_9;
+Lisp_Object Vcharset_mojikyo_pj_10;
+Lisp_Object Vcharset_mojikyo_pj_11;
+Lisp_Object Vcharset_mojikyo_pj_12;
+Lisp_Object Vcharset_mojikyo_pj_13;
+Lisp_Object Vcharset_mojikyo_pj_14;
+Lisp_Object Vcharset_mojikyo_pj_15;
+Lisp_Object Vcharset_mojikyo_pj_16;
+Lisp_Object Vcharset_mojikyo_pj_17;
+Lisp_Object Vcharset_mojikyo_pj_18;
+Lisp_Object Vcharset_mojikyo_pj_19;
+Lisp_Object Vcharset_mojikyo_pj_20;
+Lisp_Object Vcharset_mojikyo_pj_21;
Lisp_Object Vcharset_ethiopic_ucs;
-Lisp_Object Vcharset_hiragana_jisx0208;
-Lisp_Object Vcharset_katakana_jisx0208;
#endif
Lisp_Object Vcharset_chinese_big5_1;
Lisp_Object Vcharset_chinese_big5_2;
static const struct lrecord_description charset_lookup_description_1[] = {
{ XD_LISP_OBJECT_ARRAY, offsetof (struct charset_lookup, charset_by_leading_byte),
#ifdef UTF2000
- 128+4*128
+ NUM_LEADING_BYTES+4*128
#else
128+4*128*2
#endif
#ifdef UTF2000
static Lisp_Object
-mark_char_byte_table (Lisp_Object obj, void (*markobj) (Lisp_Object))
+mark_char_byte_table (Lisp_Object obj)
{
struct Lisp_Char_Byte_Table *cte = XCHAR_BYTE_TABLE (obj);
int i;
static Lisp_Object
-mark_char_code_table (Lisp_Object obj, void (*markobj) (Lisp_Object))
+mark_char_code_table (Lisp_Object obj)
{
struct Lisp_Char_Code_Table *cte = XCHAR_CODE_TABLE (obj);
Lisp_Object Q_decomposition;
Lisp_Object Q_ucs;
Lisp_Object Qcompat;
+Lisp_Object Qisolated;
+Lisp_Object Qinitial;
+Lisp_Object Qmedial;
+Lisp_Object Qfinal;
+Lisp_Object Qvertical;
Lisp_Object QnoBreak;
Lisp_Object Qfraction;
Lisp_Object Qsuper;
Lisp_Object Qsquare;
Lisp_Object Qwide;
Lisp_Object Qnarrow;
+Lisp_Object Qsmall;
Lisp_Object Qfont;
Emchar
return XCHAR (v);
else if (EQ (v, Qcompat))
return -1;
- else if (EQ (v, QnoBreak))
+ else if (EQ (v, Qisolated))
return -2;
- else if (EQ (v, Qfraction))
+ else if (EQ (v, Qinitial))
return -3;
- else if (EQ (v, Qsuper))
+ else if (EQ (v, Qmedial))
return -4;
- else if (EQ (v, Qsub))
+ else if (EQ (v, Qfinal))
return -5;
- else if (EQ (v, Qcircle))
+ else if (EQ (v, Qvertical))
return -6;
- else if (EQ (v, Qsquare))
+ else if (EQ (v, QnoBreak))
return -7;
- else if (EQ (v, Qwide))
+ else if (EQ (v, Qfraction))
return -8;
- else if (EQ (v, Qnarrow))
+ else if (EQ (v, Qsuper))
return -9;
- else if (EQ (v, Qfont))
+ else if (EQ (v, Qsub))
return -10;
+ else if (EQ (v, Qcircle))
+ return -11;
+ else if (EQ (v, Qsquare))
+ return -12;
+ else if (EQ (v, Qwide))
+ return -13;
+ else if (EQ (v, Qnarrow))
+ return -14;
+ else if (EQ (v, Qsmall))
+ return -15;
+ else if (EQ (v, Qfont))
+ return -16;
else
signal_simple_error (err_msg, err_arg);
}
Qlatin_viscii_upper,
Qvietnamese_viscii_lower,
Qvietnamese_viscii_upper,
+ Qideograph_daikanwa,
+ Qmojikyo_pj_1,
+ Qmojikyo_pj_2,
+ Qmojikyo_pj_3,
+ Qmojikyo_pj_4,
+ Qmojikyo_pj_5,
+ Qmojikyo_pj_6,
+ Qmojikyo_pj_7,
+ Qmojikyo_pj_8,
+ Qmojikyo_pj_9,
+ Qmojikyo_pj_10,
+ Qmojikyo_pj_11,
+ Qmojikyo_pj_12,
+ Qmojikyo_pj_13,
+ Qmojikyo_pj_14,
+ Qmojikyo_pj_15,
+ Qmojikyo_pj_16,
+ Qmojikyo_pj_17,
+ Qmojikyo_pj_18,
+ Qmojikyo_pj_19,
+ Qmojikyo_pj_20,
+ Qmojikyo_pj_21,
Qethiopic_ucs,
- Qhiragana_jisx0208,
- Qkatakana_jisx0208,
#endif
Qchinese_big5_1,
Qchinese_big5_2,
Lisp_Object
split_builtin_char (Emchar c)
{
- if (c < MIN_CHAR_OBS_94x94)
+ if (c <= MAX_CHAR_BASIC_LATIN)
{
- if (c <= MAX_CHAR_BASIC_LATIN)
- {
- return list2 (Vcharset_ascii, make_int (c));
- }
- else if (c < 0xA0)
- {
- return list2 (Vcharset_control_1, make_int (c & 0x7F));
- }
- else if (c <= 0xff)
- {
- return list2 (Vcharset_latin_iso8859_1, make_int (c & 0x7F));
- }
- else if ((MIN_CHAR_GREEK <= c) && (c <= MAX_CHAR_GREEK))
- {
- return list2 (Vcharset_greek_iso8859_7,
- make_int (c - MIN_CHAR_GREEK + 0x20));
- }
- else if ((MIN_CHAR_CYRILLIC <= c) && (c <= MAX_CHAR_CYRILLIC))
- {
- return list2 (Vcharset_cyrillic_iso8859_5,
- make_int (c - MIN_CHAR_CYRILLIC + 0x20));
- }
- else if ((MIN_CHAR_HEBREW <= c) && (c <= MAX_CHAR_HEBREW))
- {
- return list2 (Vcharset_hebrew_iso8859_8,
- make_int (c - MIN_CHAR_HEBREW + 0x20));
- }
- else if ((MIN_CHAR_THAI <= c) && (c <= MAX_CHAR_THAI))
- {
- return list2 (Vcharset_thai_tis620,
- make_int (c - MIN_CHAR_THAI + 0x20));
- }
- else if ((MIN_CHAR_HALFWIDTH_KATAKANA <= c)
- && (c <= MAX_CHAR_HALFWIDTH_KATAKANA))
- {
- return list2 (Vcharset_katakana_jisx0201,
- make_int (c - MIN_CHAR_HALFWIDTH_KATAKANA + 33));
- }
- else
- {
- return list3 (Vcharset_ucs_bmp,
- make_int (c >> 8), make_int (c & 0xff));
- }
+ return list2 (Vcharset_ascii, make_int (c));
}
- else if (c <= MAX_CHAR_OBS_94x94)
+ else if (c < 0xA0)
{
- return list3 (CHARSET_BY_ATTRIBUTES
- (CHARSET_TYPE_94X94,
- ((c - MIN_CHAR_OBS_94x94) / (94 * 94)) + '@',
- CHARSET_LEFT_TO_RIGHT),
- make_int ((((c - MIN_CHAR_OBS_94x94) / 94) % 94) + 33),
- make_int (((c - MIN_CHAR_OBS_94x94) % 94) + 33));
+ return list2 (Vcharset_control_1, make_int (c & 0x7F));
+ }
+ else if (c <= 0xff)
+ {
+ return list2 (Vcharset_latin_iso8859_1, make_int (c & 0x7F));
+ }
+ else if ((MIN_CHAR_GREEK <= c) && (c <= MAX_CHAR_GREEK))
+ {
+ return list2 (Vcharset_greek_iso8859_7,
+ make_int (c - MIN_CHAR_GREEK + 0x20));
+ }
+ else if ((MIN_CHAR_CYRILLIC <= c) && (c <= MAX_CHAR_CYRILLIC))
+ {
+ return list2 (Vcharset_cyrillic_iso8859_5,
+ make_int (c - MIN_CHAR_CYRILLIC + 0x20));
+ }
+ else if ((MIN_CHAR_HEBREW <= c) && (c <= MAX_CHAR_HEBREW))
+ {
+ return list2 (Vcharset_hebrew_iso8859_8,
+ make_int (c - MIN_CHAR_HEBREW + 0x20));
+ }
+ else if ((MIN_CHAR_THAI <= c) && (c <= MAX_CHAR_THAI))
+ {
+ return list2 (Vcharset_thai_tis620,
+ make_int (c - MIN_CHAR_THAI + 0x20));
+ }
+ else if ((MIN_CHAR_HALFWIDTH_KATAKANA <= c)
+ && (c <= MAX_CHAR_HALFWIDTH_KATAKANA))
+ {
+ return list2 (Vcharset_katakana_jisx0201,
+ make_int (c - MIN_CHAR_HALFWIDTH_KATAKANA + 33));
+ }
+ else if (c <= MAX_CHAR_BMP)
+ {
+ return list3 (Vcharset_ucs_bmp,
+ make_int (c >> 8), make_int (c & 0xff));
+ }
+ else if ((MIN_CHAR_DAIKANWA <= c) && (c <= MAX_CHAR_DAIKANWA))
+ {
+ return list3 (Vcharset_ideograph_daikanwa,
+ make_int ((c - MIN_CHAR_DAIKANWA) >> 8),
+ make_int ((c - MIN_CHAR_DAIKANWA) & 255));
}
else if (c <= MAX_CHAR_94)
{
defsymbol (&Q_ucs, "->ucs");
defsymbol (&Q_decomposition, "->decomposition");
defsymbol (&Qcompat, "compat");
+ defsymbol (&Qisolated, "isolated");
+ defsymbol (&Qinitial, "initial");
+ defsymbol (&Qmedial, "medial");
+ defsymbol (&Qfinal, "final");
+ defsymbol (&Qvertical, "vertical");
defsymbol (&QnoBreak, "noBreak");
defsymbol (&Qfraction, "fraction");
defsymbol (&Qsuper, "super");
defsymbol (&Qsquare, "square");
defsymbol (&Qwide, "wide");
defsymbol (&Qnarrow, "narrow");
+ defsymbol (&Qsmall, "small");
defsymbol (&Qfont, "font");
defsymbol (&Qucs, "ucs");
defsymbol (&Qucs_bmp, "ucs-bmp");
defsymbol (&Qlatin_viscii_upper, "latin-viscii-upper");
defsymbol (&Qvietnamese_viscii_lower, "vietnamese-viscii-lower");
defsymbol (&Qvietnamese_viscii_upper, "vietnamese-viscii-upper");
+ defsymbol (&Qideograph_daikanwa, "ideograph-daikanwa");
+ defsymbol (&Qmojikyo_pj_1, "mojikyo-pj-1");
+ defsymbol (&Qmojikyo_pj_2, "mojikyo-pj-2");
+ defsymbol (&Qmojikyo_pj_3, "mojikyo-pj-3");
+ defsymbol (&Qmojikyo_pj_4, "mojikyo-pj-4");
+ defsymbol (&Qmojikyo_pj_5, "mojikyo-pj-5");
+ defsymbol (&Qmojikyo_pj_6, "mojikyo-pj-6");
+ defsymbol (&Qmojikyo_pj_7, "mojikyo-pj-7");
+ defsymbol (&Qmojikyo_pj_8, "mojikyo-pj-8");
+ defsymbol (&Qmojikyo_pj_9, "mojikyo-pj-9");
+ defsymbol (&Qmojikyo_pj_10, "mojikyo-pj-10");
+ defsymbol (&Qmojikyo_pj_11, "mojikyo-pj-11");
+ defsymbol (&Qmojikyo_pj_12, "mojikyo-pj-12");
+ defsymbol (&Qmojikyo_pj_13, "mojikyo-pj-13");
+ defsymbol (&Qmojikyo_pj_14, "mojikyo-pj-14");
+ defsymbol (&Qmojikyo_pj_15, "mojikyo-pj-15");
+ defsymbol (&Qmojikyo_pj_16, "mojikyo-pj-16");
+ defsymbol (&Qmojikyo_pj_17, "mojikyo-pj-17");
+ defsymbol (&Qmojikyo_pj_18, "mojikyo-pj-18");
+ defsymbol (&Qmojikyo_pj_19, "mojikyo-pj-19");
+ defsymbol (&Qmojikyo_pj_20, "mojikyo-pj-20");
+ defsymbol (&Qmojikyo_pj_21, "mojikyo-pj-21");
defsymbol (&Qethiopic_ucs, "ethiopic-ucs");
- defsymbol (&Qhiragana_jisx0208, "hiragana-jisx0208");
- defsymbol (&Qkatakana_jisx0208, "katakana-jisx0208");
#endif
defsymbol (&Qchinese_big5_1, "chinese-big5-1");
defsymbol (&Qchinese_big5_2, "chinese-big5-2");
build_string ("VISCII 1.1 (Vietnamese)"),
build_string ("VISCII1\\.1"),
Qnil, 0, 0, 0, 0);
+ staticpro (&Vcharset_ideograph_daikanwa);
+ Vcharset_ideograph_daikanwa =
+ make_charset (LEADING_BYTE_DAIKANWA, Qideograph_daikanwa,
+ CHARSET_TYPE_256X256, 2, 2, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Daikanwa"),
+ build_string ("Morohashi's Daikanwa"),
+ build_string ("Daikanwa dictionary by MOROHASHI Tetsuji"),
+ build_string ("Daikanwa"),
+ Qnil, MIN_CHAR_DAIKANWA, MAX_CHAR_DAIKANWA, 0, 0);
+ staticpro (&Vcharset_mojikyo_pj_1);
+ Vcharset_mojikyo_pj_1 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_1, Qmojikyo_pj_1,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-1"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 1"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 1"),
+ build_string ("jisx0208\\.Mojikyo-1$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_2);
+ Vcharset_mojikyo_pj_2 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_2, Qmojikyo_pj_2,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-2"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 2"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 2"),
+ build_string ("jisx0208\\.Mojikyo-2$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_3);
+ Vcharset_mojikyo_pj_3 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_3, Qmojikyo_pj_3,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-3"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 3"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 3"),
+ build_string ("jisx0208\\.Mojikyo-3$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_4);
+ Vcharset_mojikyo_pj_4 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_4, Qmojikyo_pj_4,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-4"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 4"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 4"),
+ build_string ("jisx0208\\.Mojikyo-4$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_5);
+ Vcharset_mojikyo_pj_5 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_5, Qmojikyo_pj_5,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-5"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 5"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 5"),
+ build_string ("jisx0208\\.Mojikyo-5$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_6);
+ Vcharset_mojikyo_pj_6 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_6, Qmojikyo_pj_6,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-6"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 6"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 6"),
+ build_string ("jisx0208\\.Mojikyo-6$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_7);
+ Vcharset_mojikyo_pj_7 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_7, Qmojikyo_pj_7,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-7"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 7"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 7"),
+ build_string ("jisx0208\\.Mojikyo-7$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_8);
+ Vcharset_mojikyo_pj_8 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_8, Qmojikyo_pj_8,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-8"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 8"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 8"),
+ build_string ("jisx0208\\.Mojikyo-8$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_9);
+ Vcharset_mojikyo_pj_9 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_9, Qmojikyo_pj_9,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-9"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 9"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 9"),
+ build_string ("jisx0208\\.Mojikyo-9$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_10);
+ Vcharset_mojikyo_pj_10 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_10, Qmojikyo_pj_10,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-10"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 10"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 10"),
+ build_string ("jisx0208\\.Mojikyo-10$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_11);
+ Vcharset_mojikyo_pj_11 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_11, Qmojikyo_pj_11,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-11"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 11"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 11"),
+ build_string ("jisx0208\\.Mojikyo-11$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_12);
+ Vcharset_mojikyo_pj_12 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_12, Qmojikyo_pj_12,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-12"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 12"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 12"),
+ build_string ("jisx0208\\.Mojikyo-12$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_13);
+ Vcharset_mojikyo_pj_13 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_13, Qmojikyo_pj_13,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-13"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 13"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 13"),
+ build_string ("jisx0208\\.Mojikyo-13$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_14);
+ Vcharset_mojikyo_pj_14 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_14, Qmojikyo_pj_14,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-14"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 14"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 14"),
+ build_string ("jisx0208\\.Mojikyo-14$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_15);
+ Vcharset_mojikyo_pj_15 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_15, Qmojikyo_pj_15,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-15"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 15"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 15"),
+ build_string ("jisx0208\\.Mojikyo-15$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_16);
+ Vcharset_mojikyo_pj_16 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_16, Qmojikyo_pj_16,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-16"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 16"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 16"),
+ build_string ("jisx0208\\.Mojikyo-16$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_17);
+ Vcharset_mojikyo_pj_17 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_17, Qmojikyo_pj_17,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-17"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 17"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 17"),
+ build_string ("jisx0208\\.Mojikyo-17$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_18);
+ Vcharset_mojikyo_pj_18 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_18, Qmojikyo_pj_18,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-18"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 18"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 18"),
+ build_string ("jisx0208\\.Mojikyo-18$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_19);
+ Vcharset_mojikyo_pj_19 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_19, Qmojikyo_pj_19,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-19"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 19"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 19"),
+ build_string ("jisx0208\\.Mojikyo-19$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_20);
+ Vcharset_mojikyo_pj_20 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_20, Qmojikyo_pj_20,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-20"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 20"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 20"),
+ build_string ("jisx0208\\.Mojikyo-20$"),
+ Qnil, 0, 0, 0, 33);
+ staticpro (&Vcharset_mojikyo_pj_21);
+ Vcharset_mojikyo_pj_21 =
+ make_charset (LEADING_BYTE_MOJIKYO_PJ_21, Qmojikyo_pj_21,
+ CHARSET_TYPE_94X94, 2, 0, 0,
+ CHARSET_LEFT_TO_RIGHT,
+ build_string ("Mojikyo-PJ-21"),
+ build_string ("Mojikyo (pseudo JIS encoding) part 21"),
+ build_string
+ ("Konjaku-Mojikyo (pseudo JIS encoding) part 21"),
+ build_string ("jisx0208\\.Mojikyo-21$"),
+ Qnil, 0, 0, 0, 33);
staticpro (&Vcharset_ethiopic_ucs);
Vcharset_ethiopic_ucs =
make_charset (LEADING_BYTE_ETHIOPIC_UCS, Qethiopic_ucs,
build_string ("Ethiopic of UCS"),
build_string ("Ethiopic-Unicode"),
Qnil, 0x1200, 0x137F, 0x1200, 0);
- staticpro (&Vcharset_hiragana_jisx0208);
- Vcharset_hiragana_jisx0208 =
- make_charset (LEADING_BYTE_HIRAGANA_JISX0208, Qhiragana_jisx0208,
- CHARSET_TYPE_94X94, 2, 0, 'B',
- CHARSET_LEFT_TO_RIGHT,
- build_string ("Hiragana"),
- build_string ("Hiragana of JIS X0208"),
- build_string ("Japanese Hiragana of JIS X0208"),
- build_string ("jisx0208\\.19\\(78\\|83\\|90\\)"),
- Qnil, MIN_CHAR_HIRAGANA, MAX_CHAR_HIRAGANA,
- (0x24 - 33) * 94 + (0x21 - 33), 33);
- staticpro (&Vcharset_katakana_jisx0208);
- Vcharset_katakana_jisx0208 =
- make_charset (LEADING_BYTE_KATAKANA_JISX0208, Qkatakana_jisx0208,
- CHARSET_TYPE_94X94, 2, 0, 'B',
- CHARSET_LEFT_TO_RIGHT,
- build_string ("Katakana"),
- build_string ("Katakana of JIS X0208"),
- build_string ("Japanese Katakana of JIS X0208"),
- build_string ("jisx0208\\.19\\(78\\|83\\|90\\)"),
- Qnil, MIN_CHAR_KATAKANA, MAX_CHAR_KATAKANA,
- (0x25 - 33) * 94 + (0x21 - 33), 33);
#endif
staticpro (&Vcharset_chinese_big5_1);
Vcharset_chinese_big5_1 =
projects / chise / xemacs-chise.git- / commitdiff