From: tomo <tomo>
Date: Tue, 2 Jul 2002 10:32:36 +0000 (+0000)
Subject: (Fsave_charset_mapping_table): Open database as "w+" mode.
X-Git-Tag: r21-2-44-utf-2000-0_19-n11c~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87c4768b9f74b6d48fb56908f29fb1dccadb11ea;p=chise%2Fxemacs-chise.git

(Fsave_charset_mapping_table): Open database as "w+" mode.
(load_char_decoding_entry_maybe): Open database as read-only mode.
---

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