+ ;; (let (dest str len ret domain)
+ ;; (dolist (fn (char-attribute-list))
+ ;; (setq str (symbol-name fn))
+ ;; (when (string-match "^ideographic-radical@\\([^*]+\\)$" str)
+ ;; (setq domain (substring str (match-beginning 1)))
+ ;; (when (> (setq len (length domain)) 0)
+ ;; (setq ret (read-from-string domain))
+ ;; (when (= (cdr ret) len)
+ ;; (setq domain (car ret))
+ ;; (unless (memq domain dest)
+ ;; (push domain dest))))))
+ ;; (sort dest #'string<))