From 765cd64e0299566342f0d78426481d6369842fec Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 11 Mar 2002 16:08:10 +0000 Subject: [PATCH] Delete system-char-database-directory before loading system-char-db-source-file-list when updating database files. --- lisp/utf-2000/update-cdb.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) 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)) -- 1.7.10.4