From: tomo <tomo>
Date: Mon, 11 Mar 2002 16:08:10 +0000 (+0000)
Subject: Delete system-char-database-directory before loading
X-Git-Tag: r21-2-44-lazy-n7c~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=765cd64e0299566342f0d78426481d6369842fec;p=chise%2Fxemacs-chise.git

Delete system-char-database-directory before loading
system-char-db-source-file-list when updating database files.
---

diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el
index 93f46c7..35bdd98 100644
--- a/lisp/utf-2000/update-cdb.el
+++ b/lisp/utf-2000/update-cdb.el
@@ -16,17 +16,12 @@
 
 (when (or load-ignore-elc-files
 	  (not (file-exists-p system-char-database-directory)))
+  (if (file-exists-p system-char-database-directory)
+      (delete-file-with-children system-char-database-directory))
+
   (load "dumped-chars.el")
   (dolist (file system-char-db-source-file-list)
     (pureload file))
-  
-  ;;(condition-case nil
-  ;; (call-process "rm" nil 0 nil
-  ;;               "-rf" system-char-database-directory)
-  ;;(error (princ (format "Can't delete %s\n"
-  ;;		  system-char-database-directory))))
-  (if (file-exists-p system-char-database-directory)
-      (delete-file-with-children system-char-database-directory))
 
   (dolist (attribute (char-attribute-list))
     (save-char-attribute-table attribute))