update.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / update-cdb.el

diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el
index 487eb67..8ee1852 100644 (file)
--- a/lisp/utf-2000/update-cdb.el
+++ b/lisp/utf-2000/update-cdb.el
@@ -38,8 +38,8 @@
  ((featurep 'chise)
   (defvar system-char-database-directory
     (expand-file-name "chise-db"
-                     (or exec-directory
-                         "../lib-src/")))
+                     (or data-directory
+                         "../etc/")))
 
   (defun file-name-char-attribute-name (filename)
     (let ((i 0)
@@ -73,6 +73,8 @@
       (save-char-attribute-table attribute))
 
     (dolist (ccs (charset-list))
+      (and (fboundp 'save-charset-properties)
+          (save-charset-properties ccs))
       (save-charset-mapping-table ccs))
 
     (with-temp-buffer