(setq radical ideographic-radical))
(let ((drc (char-representative-of-daikanwa char radical))
(r (char-ideographic-radical char radical)))
- (if (or (null r)
- (= (char-ideographic-radical drc radical) r))
+ (if (and drc
+ (or (null r)
+ (= (char-ideographic-radical drc radical) r)))
(setq char drc)))
(char-ideographic-strokes char radical '(daikanwa)))
ret))
(and (setq ret (get-char-attribute char '=>daikanwa))
(if (numberp ret)
- (list ret 0 8)
- (append ret '(8))))
+ (list ret -10)
+ (append ret '(-10))))
(unless (memq char checked)
(unless depth
(setq depth 0))