(setq attributes (delq 'hanyu-dazidian-char attributes))
)
(unless readable
- (when (memq '->ucs-unified attributes)
- (setq attributes (delq '->ucs-unified attributes))
- )
- (when (memq '->denotational attributes)
- (setq attributes (delq '->denotational attributes))
- )
- (when (memq 'composition attributes)
- (setq attributes (delq 'composition attributes))
- ))
+ (dolist (ignored '(composition
+ ->denotational <-subsumptive ->ucs-unified))
+ (setq attributes (delq ignored attributes))))
(setq rest ccs-attributes)
(while (and rest
(progn
(setq cell (car value))
(if (integerp cell)
(setq cell (decode-char '=ucs cell)))
- (cond ((eq name '->unified)
+ (cond ((eq name '->subsumptive)
(if separator
(insert lbs))
(let ((char-db-ignored-attributes
- (cons '<-unified
+ (cons '<-subsumptive
char-db-ignored-attributes)))
(insert-char-attributes cell readable))
(setq separator lbs))