From 87c4768b9f74b6d48fb56908f29fb1dccadb11ea Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 2 Jul 2002 10:32:36 +0000 Subject: [PATCH] (Fsave_charset_mapping_table): Open database as "w+" mode. (load_char_decoding_entry_maybe): Open database as read-only mode. --- src/mule-charset.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mule-charset.c b/src/mule-charset.c index 6889030..46d12c8 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -2043,8 +2043,8 @@ Save mapping-table of CHARSET. 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)) @@ -2181,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); - 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 -- 1.7.10.4