Mercurial > emacs
changeset 88683:39ba56532289
(charset_jisx0201_roman, charset_jisx0208_1978,
charset_jisx0208): New variables.
(Fdefine_charset_internal): Setup them if appropriate.
(init_charset_once): Initialize them to -1.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 May 2002 11:04:38 +0000 |
| parents | e2170fdb6abc |
| children | b76f581439b0 |
| files | src/charset.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/charset.c Thu May 30 11:03:06 2002 +0000 +++ b/src/charset.c Thu May 30 11:04:38 2002 +0000 @@ -93,6 +93,11 @@ int charset_iso_8859_1; int charset_unicode; +/* The other special charsets. */ +int charset_jisx0201_roman; +int charset_jisx0208_1978; +int charset_jisx0208; + /* Value of charset attribute `charset-iso-plane'. */ Lisp_Object Qgl, Qgr; @@ -965,6 +970,12 @@ if (new_definition_p) Viso_2022_charset_list = nconc2 (Viso_2022_charset_list, Fcons (make_number (id), Qnil)); + if (ISO_CHARSET_TABLE (1, 0, 'J') == id) + charset_jisx0201_roman = id; + else if (ISO_CHARSET_TABLE (2, 0, '@') == id) + charset_jisx0208_1978 = id; + else if (ISO_CHARSET_TABLE (2, 0, 'B') == id) + charset_jisx0208 = id; } if (charset.emacs_mule_id >= 0) @@ -1817,6 +1828,10 @@ for (i = 0; i < 255; i++) emacs_mule_charset[i] = NULL; + charset_jisx0201_roman = -1; + charset_jisx0208_1978 = -1; + charset_jisx0208 = -1; + #if 0 Vchar_charset_set = Fmake_char_table (Qnil, Qnil); CHAR_TABLE_SET (Vchar_charset_set, make_number (97), Qnil);