From: tomo <tomo>
Date: Tue, 2 Jul 2002 02:48:58 +0000 (+0000)
Subject: (Fclose_char_attribute_table): Set Qnil on `ct->db_file'
X-Git-Tag: r21-2-44-utf-2000-0_19-n11c~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1688ae80d32b6daaf5c8a1151500a411e82e92d7;p=chise%2Fxemacs-chise.git

(Fclose_char_attribute_table): Set Qnil on `ct->db_file'
unconditionally.
---

diff --git a/src/chartab.c b/src/chartab.c
index b140c48..632589f 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3420,15 +3420,13 @@ Close database of ATTRIBUTE.
   else
     return Qnil;
 
-  if (!NILP (Fdatabase_live_p (ct->db)))
-    {
-      Fclose_database (ct->db);
-    }
   if (!NILP (ct->db))
     {
+      if (!NILP (Fdatabase_live_p (ct->db)))
+	Fclose_database (ct->db);
       ct->db = Qnil;
-      ct->db_file = Qnil;
     }
+  ct->db_file = Qnil;
 #endif
   return Qnil;
 }