From 3e4abc9e90b1748530bc93a6d0a770926335d495 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 5 Mar 2002 01:07:22 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 9 ++++++++- lisp/international/mule.el | 11 ++++++++--- src/ChangeLog | 23 +++++++++++++++++++++++ src/charset.h | 20 ++++++++++++++------ 4 files changed, 53 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 18fff21af38..ff59fa4c954 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,11 @@ -2002-03-04 Kenichi Handa +2002-03-05 Kenichi Handa + + * language/czech.el ("Czech"): Set `iso-8859-2' for + `nonascii-translation'. + + * language/romanian.el ("Romanian"): Likewise. + + * language/slovak.el ("Slovak"): Likewise. * international/characters.el: Optimize calls of modify-category-entry. diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 47e18a91b9d..4613c25380e 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -124,7 +124,11 @@ where CODE-n is a code-point of the charset, and CHAR-n is the corresponding charcter code. If it is a string, it is a name of file that contains the above -information. +information. Each line of the file must be this format: + 0xXXX 0xYYY +where XXX is a hexadecimal representation of CODE-n and YYY is a +hexadecimal representation of CHAR-n. A line starting with `#' is a +comment line. `:parents' @@ -140,10 +144,11 @@ VALUE must be vector or string. If it is a vector, the format is [ CODE-1 CHAR-1 CODE-2 CHAR-2 ... ], where CODE-n is a code-point of the charset, and CHAR-n is the -corresponding unified charcter code. +corresponding Unicode charcter code. If it is a string, it is a name of file that contains the above -information." +information. The file format is the same as what described for `:map' +attribute." (let ((attrs (mapcar 'list '(:dimension :code-space :iso-final-char diff --git a/src/ChangeLog b/src/ChangeLog index ae57d1cb214..a79957d598f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,26 @@ +2002-03-04 Kenichi Handa + + * casefiddle.c (casify_region): Fix multibyte case. + + * character.c (c_string_width): Add return type `int'. + (char_string_with_unification): Arg ADVANCED deleted. + + * character.h (CHAR_VALID_P): Don't call CHARACTERP. + (CHAR_STRING): Adjusted for the change of + char_string_with_unification. + (CHAR_STRING_ADVANCE): Make it do-while statement. + + * chartab.c (sub_char_table_set_range): Optimized for the case + DEPTH == 3. Add workaround code for a GCC optimization bug. + + * coding.c: Delete unused variables. + + * fileio.c (Finsert_file_contents): Set coding_system to Qnil + earlier. If inserted is zero and the coding system doesn't + require flushing, don't call decode_coding_gap. + + * syntax.h (SET_RAW_SYNTAX_ENTRY): Don't call make_number. + 2002-03-01 Kenichi Handa The following changes are for using Unicode as an internal diff --git a/src/charset.h b/src/charset.h index 58649eabb51..6d8068abd59 100644 --- a/src/charset.h +++ b/src/charset.h @@ -62,7 +62,7 @@ enum charset_attr_index charset_plist, /* If the method of the charset is `MAP_DEFERRED', the value is a - mappint vector or a file name that contains mapping vector. + mapping vector or a file name that contains mapping vector. Otherwise, nil. */ charset_map, @@ -82,10 +82,15 @@ enum charset_attr_index of the form (PARENT-CHARSET-ID . CODE-OFFSET). */ charset_parents, - /* */ + /* The value is a mapping vector or a file name that contains + mapping vector. This provide how characters in the charset + should be unified with Unicode. The value of the member + `charset_deunifier' is created from this information. */ charset_unify_map, - /* */ + /* If characters in the charset must be unified Unicode, the value + is a char table that maps a character code in the charset to + the corresponding Unicode character. */ charset_deunifier, /* The length of charset attribute vector. */ @@ -113,13 +118,15 @@ enum charset_method /* A charset of this method inherits characters from the other charsets. */ - CHARSET_METHOD_INHERIT, + CHARSET_METHOD_INHERIT }; struct charset { + /* Index to charset_table. */ int id; + /* Index to Vcharset_hash_table. */ int hash_index; /* Dimension of the charset: 1, 2, 3, or 4. */ @@ -135,10 +142,11 @@ struct charset If the charset is treated as 96-chars in ISO-2022, the value is 1. */ int iso_chars_96; - /* ISO final character code for the charset: 48..127. - It may be 0 if the charset doesn't conform to ISO-2022. */ + /* ISO final byte of the charset: 48..127. It may be -1 if the + charset doesn't conform to ISO-2022. */ int iso_final; + /* ISO revision number of the charset. */ int iso_revision; /* If the charset is identical to what supported by Emacs 21 and the -- 2.39.5