projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(Fsave_charset_mapping_table): Open database as "w+" mode.
[chise/xemacs-chise.git-]
/
src
/
mule-charset.c
diff --git
a/src/mule-charset.c
b/src/mule-charset.c
index
7f57ba4
..
46d12c8
100644
(file)
--- a/
src/mule-charset.c
+++ b/
src/mule-charset.c
@@
-950,8
+950,10
@@
decode_builtin_char (Lisp_Object charset, int code_point)
+ (row - (18 + 32)) * 94
+ cell - 33;
}
+ (row - (18 + 32)) * 94
+ cell - 33;
}
- return DECODE_CHAR (mother, code + XCHARSET_CODE_OFFSET(charset));
+ return
+ decode_builtin_char (mother, code + XCHARSET_CODE_OFFSET(charset));
}
}
+#if 0
else if (EQ (charset, Vcharset_chinese_big5))
{
int c1 = code_point >> 8;
else if (EQ (charset, Vcharset_chinese_big5))
{
int c1 = code_point >> 8;
@@
-978,6
+980,7
@@
decode_builtin_char (Lisp_Object charset, int code_point)
code_point = ((I / 94 + 33) << 8) | (I % 94 + 33);
}
}
code_point = ((I / 94 + 33) << 8) | (I % 94 + 33);
}
}
+#endif
if ((final = XCHARSET_FINAL (charset)) >= '0')
{
if (XCHARSET_DIMENSION (charset) == 1)
if ((final = XCHARSET_FINAL (charset)) >= '0')
{
if (XCHARSET_DIMENSION (charset) == 1)
@@
-2040,8
+2043,8
@@
Save mapping-table of CHARSET.
db_file = char_attribute_system_db_file (CHARSET_NAME (cs),
Qsystem_char_id, 1);
db_file = char_attribute_system_db_file (CHARSET_NAME (cs),
Qsystem_char_id, 1);
- db = Fopen_database (db_file, Qnil, Qnil, Qnil, Qnil);
-
+ db = Fopen_database (db_file, Qnil, Qnil, build_string ("w+"), Qnil);
+
byte_min = CHARSET_BYTE_OFFSET (cs);
byte_max = byte_min + CHARSET_BYTE_SIZE (cs);
switch (CHARSET_DIMENSION (cs))
byte_min = CHARSET_BYTE_OFFSET (cs);
byte_max = byte_min + CHARSET_BYTE_SIZE (cs);
switch (CHARSET_DIMENSION (cs))
@@
-2178,7
+2181,7
@@
load_char_decoding_entry_maybe (Lisp_Object ccs, int code_point)
= char_attribute_system_db_file (XCHARSET_NAME(ccs), Qsystem_char_id,
0);
= char_attribute_system_db_file (XCHARSET_NAME(ccs), Qsystem_char_id,
0);
- db = Fopen_database (db_file, Qnil, Qnil, Qnil, Qnil);
+ db = Fopen_database (db_file, Qnil, Qnil, build_string ("r"), Qnil);
if (!NILP (db))
{
Lisp_Object ret
if (!NILP (db))
{
Lisp_Object ret
@@
-3063,11
+3066,10
@@
complex_vars_of_mule_charset (void)
build_string ("Big5"),
build_string ("Big5"),
build_string ("Big5 Chinese traditional"),
build_string ("Big5"),
build_string ("Big5"),
build_string ("Big5 Chinese traditional"),
- build_string ("big5"),
+ build_string ("big5-0"),
Qnil,
Qnil,
- 0 /* MIN_CHAR_BIG5_CDP */,
- 0 /* MAX_CHAR_BIG5_CDP */, 0, 0,
- Qnil, CONVERSION_IDENTICAL);
+ MIN_CHAR_BIG5_CDP, MAX_CHAR_BIG5_CDP,
+ MIN_CHAR_BIG5_CDP, 0, Qnil, CONVERSION_IDENTICAL);
#if 0
staticpro (&Vcharset_chinese_big5_cdp);
Vcharset_chinese_big5_cdp =
#if 0
staticpro (&Vcharset_chinese_big5_cdp);
Vcharset_chinese_big5_cdp =