From 1688ae80d32b6daaf5c8a1151500a411e82e92d7 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 2 Jul 2002 02:48:58 +0000
Subject: [PATCH] (Fclose_char_attribute_table): Set Qnil on `ct->db_file'
 unconditionally.

---
 src/chartab.c |    8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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;
 }
-- 
1.7.10.4