- (mapcar (lambda (file)
- (mount-char-attribute-table
- (intern (file-name-char-attribute-name file))))
- (directory-files
- (expand-file-name "system-char-id"
- system-char-database-directory)
- nil nil t t))
+ (if (>= (function-max-args 'char-attribute-list) 1)
+ (char-attribute-list 'rehash)
+ (mapcar (lambda (file)
+ (mount-char-attribute-table
+ (intern (file-name-char-attribute-name file))))
+ (directory-files
+ (expand-file-name "system-char-id" ; "character/feature"
+ system-char-database-directory)
+ nil nil t t)))