- (let ((a-m-m (get-char-attribute a 'ideograph-daikanwa))
- (b-m-m (get-char-attribute b 'ideograph-daikanwa))
- a-m-r b-m-r
- a-s b-s
- a-u b-u m ret)
- (if a-m-m
- (setq a-s (char-ideographic-strokes a))
- (setq a-m-r (get-char-attribute a 'morohashi-daikanwa))
- (if a-m-r
- (progn
- (setq a-m-m (car a-m-r)
- a-m-r (cdr a-m-r))
- (if (= (car a-m-r) 0)
- (progn
- (setq ret (decode-char 'ideograph-daikanwa a-m-m))
- (if (= (get-char-attribute ret 'ideographic-radical)
- (get-char-attribute a 'ideographic-radical))
- (setq a-s (char-ideographic-strokes ret))
- (setq a-s (char-ideographic-strokes a))))
- (if (setq m (get-char-attribute a '->mojikyo))
- (setq a-s (char-ideographic-strokes
- (decode-char 'mojikyo m)))
- (setq a-s (char-ideographic-strokes a)))))
- (setq a-s (char-ideographic-strokes a))))
- (if b-m-m
- (setq b-s (char-ideographic-strokes b))
- (setq b-m-r (get-char-attribute b 'morohashi-daikanwa))
- (if b-m-r
- (progn
- (setq b-m-m (car b-m-r)
- b-m-r (cdr b-m-r))
- (if (= (car b-m-r) 0)
- (progn
- (setq ret (decode-char 'ideograph-daikanwa b-m-m))
- (if (= (get-char-attribute ret 'ideographic-radical)
- (get-char-attribute b 'ideographic-radical))
- (setq b-s (char-ideographic-strokes ret))
- (setq b-s (char-ideographic-strokes b))))
- (if (setq m (get-char-attribute b '->mojikyo))
- (setq b-s (char-ideographic-strokes
- (decode-char 'mojikyo m)))
- (setq b-s (char-ideographic-strokes b)))))
- (setq b-s (char-ideographic-strokes b))))
+ (let (a-m b-m a-s b-s a-u b-u ret)
+ (setq ret (char-representative-of-daikanwa a))
+ (setq a-s (char-ideographic-strokes
+ (if (= (get-char-attribute ret 'ideographic-radical)
+ (get-char-attribute a 'ideographic-radical))
+ ret
+ a)))
+ (setq ret (char-representative-of-daikanwa b))
+ (setq b-s (char-ideographic-strokes
+ (if (= (get-char-attribute ret 'ideographic-radical)
+ (get-char-attribute b 'ideographic-radical))
+ ret
+ b)))