+ (when (setq cell (assq 'ideographic-radical data))
+ (setq cell (cdr cell))
+ (insert (format "(ideographic-radical . %S)\t; %c
+ "
+ cell
+ (aref ideographic-radicals cell)))
+ (setq data (del-alist 'ideographic-radical data))
+ )
+ (cond
+ ((setq cell (assq 'ideographic-strokes data))
+ (setq cell (cdr cell))
+ (insert (format "(ideographic-strokes . %S)
+ "
+ cell))
+ (setq data (del-alist 'ideographic-strokes data))
+ (when (setq cell (assq 'total-strokes data))
+ (setq cell (cdr cell))
+ (insert (format "(total-strokes\t . %S)
+ "
+ cell))
+ (setq data (del-alist 'total-strokes data))
+ ))
+ ((setq cell (assq 'total-strokes data))
+ (setq cell (cdr cell))
+ (insert (format "(total-strokes\t. %S)
+ "
+ cell))
+ (setq data (del-alist 'total-strokes data))
+ ))