- (some (lambda (feature)
- (some (lambda (b2)
- (unless (characterp b2)
- (setq b2 (find-char b2)))
- (and b2
- (ideographic-structure-char= c1 b2)))
- (char-feature c2 feature)
- ;; (get-char-attribute
- ;; c2 '<-ideographic-component-forms)
- ))
- (of-component-features))
- (progn
- (setq m1 (car (get-char-attribute c1 '<-radical))
- m2 (car (get-char-attribute c2 '<-radical)))
- (unless (characterp m1)
- (setq m1 (find-char m1)))
- (unless (characterp m2)
- (setq m2 (find-char m2)))
- (when (or m1 m2)
- (ideographic-structure-char= m1 m2))))))))
+ (memq c1 (char-component-variants c2))
+ ;; (some (lambda (feature)
+ ;; (some (lambda (b2)
+ ;; (unless (characterp b2)
+ ;; (setq b2 (find-char b2)))
+ ;; (and b2
+ ;; (ideographic-structure-char= c1 b2)))
+ ;; (char-feature c2 feature)
+ ;; ;; (get-char-attribute
+ ;; ;; c2 '<-ideographic-component-forms)
+ ;; ))
+ ;; (of-component-features))
+ ;; (progn
+ ;; (setq m1 (car (get-char-attribute c1 '<-radical))
+ ;; m2 (car (get-char-attribute c2 '<-radical)))
+ ;; (unless (characterp m1)
+ ;; (setq m1 (find-char m1)))
+ ;; (unless (characterp m2)
+ ;; (setq m2 (find-char m2)))
+ ;; (when (or m1 m2)
+ ;; (ideographic-structure-char= m1 m2))
+ ;; )
+ )))))