- (dolist (product (char-feature (nth 1 structure) 'ideographic-products))
- (if (equal structure
- (char-feature product 'ideographic-structure))
- (return product))))
+ (car (ideographic-structure-find-chars structure))
+ ;; (dolist (product (char-feature (nth 1 structure) 'ideographic-products))
+ ;; (if (equal structure
+ ;; (char-feature product 'ideographic-structure))
+ ;; (return product)))
+ )