-;;;###autoload
-(defun ideographic-structure-compact (structure)
- (let ((rest structure)
- cell
- ret dest sub)
- (while rest
- (setq cell (car rest))
- (cond
- ((and (consp cell)
- (cond ((setq ret (assq 'ideographic-structure cell))
- (setq sub (cdr ret))
- )
- ((atom (car cell))
- (setq sub cell)
- )))
- (setq cell
- (if (setq ret (ideographic-structure-find-char sub))
- ret
- (list (cons 'ideographic-structure sub))))
- ))
- (setq dest (cons cell dest)))
- (nreverse dest)))