+ (progn
+ (dolist (feature (char-attribute-list))
+ (if (string-match "^ideographic-radical@[^@*]+$"
+ (symbol-name feature))
+ (setq dest (cons feature dest))))
+ dest)
+ ;; (mapcar
+ ;; (lambda (domain)
+ ;; (intern (format "%s@%s" 'ideographic-radical domain)))
+ ;; char-db-feature-domains)
+ ))