+ radical
+ (aref ideographic-radicals radical)))
+ (setq data (del-alist 'ideographic-radical data))
+ )
+ (when (setq cell (assq 'kangxi-radical data))
+ (setq cell (cdr cell))
+ (unless (eq cell radical)
+ (insert (format "(kangxi-radical\t . %S)\t; %c
+ "
+ cell
+ (aref ideographic-radicals cell)))
+ (setq radical cell))
+ (setq data (del-alist 'kangxi-radical data))
+ )
+ (when (setq cell (assq 'japanese-radical data))
+ (setq cell (cdr cell))
+ (unless (eq cell radical)
+ (insert (format "(japanese-radical . %S)\t; %c
+ "
+ cell
+ (aref ideographic-radicals cell)))
+ (setq radical cell))
+ (setq data (del-alist 'japanese-radical data))
+ )
+ (when (setq cell (assq 'cns-radical data))
+ (setq cell (cdr cell))
+ (insert (format "(cns-radical\t . %S)\t; %c
+ "