+(princ "Updating char-feature `ideographic-products'...")
+(let* ((feature-dir
+ (expand-file-name
+ "feature"
+ (expand-file-name
+ "character" chise-system-db-directory)))
+ (p-file
+ (expand-file-name "ideographic-products" feature-dir))
+ old-p-file)
+ (when (file-exists-p p-file)
+ (setq old-p-file (make-temp-name p-file))
+ (rename-file p-file old-p-file))
+ (ids-update-index)
+ (when old-p-file
+ (delete-file old-p-file)))
+(princ "done.\n")
+