+ (dolist (feature '(ideographic-radical
+ ideographic-strokes
+ total-strokes))
+ (setq key (intern (format "%s@%s*sources" feature domain)))
+ (when (and (memq key attributes)
+ (setq value (get-char-attribute char key)))
+ (insert (format "(%s%s" key line-breaking))
+ (dolist (cell value)
+ (insert (format " %s" cell)))
+ (insert ")")
+ (insert line-breaking)
+ (setq attributes (delq key attributes))
+ ))