((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)
(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