+(defun ideographic-structure-convert-to-domain (structure domain)
+ (let (dest cell ret)
+ (while structure
+ (setq cell (car structure))
+ (setq dest
+ (cons
+ (cond ((characterp cell)
+ (char-representative-of-domain cell domain))
+ ((and (consp cell)
+ (symbolp (car cell)))
+ cell)
+ ((setq ret (find-char cell))
+ (char-representative-of-domain cell domain))
+ ((setq ret (assq 'ideographic-structure cell))
+ (put-alist 'ideographic-structure
+ (ideographic-structure-convert-to-domain
+ (cdr ret) domain)
+ (copy-alist cell)))
+ (t cell))
+ dest))
+ (setq structure (cdr structure)))
+ (nreverse dest)))
+
+;;;###autoload