+ (setq cell (cdr cell))
+ (insert (format "(iso-10646-comment\t. %S)
+ "
+ cell))
+ (setq data (del-alist 'iso-10646-comment data))
+ )
+ (when (setq cell (assq 'morohashi-daikanwa data))
+ (setq cell (cdr cell))
+ (insert (format "(morohashi-daikanwa\t%s)
+ "
+ (mapconcat (function prin1-to-string) cell " ")))
+ (setq data (del-alist 'morohashi-daikanwa data))
+ )
+ (setq radical nil)
+ (when (setq cell (assq 'ideographic-radical data))
+ (setq radical (cdr cell))
+ (insert (format "(ideographic-radical . %S)\t; %c
+ "
+ 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 . %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
+ "
+ cell
+ (aref ideographic-radicals cell)))
+ (setq data (del-alist 'cns-radical data))
+ )
+ (setq strokes nil)
+ (cond
+ ((setq cell (assq 'ideographic-strokes data))
+ (setq strokes (cdr cell))
+ (insert (format "(ideographic-strokes . %S)
+ "
+ strokes))
+ (setq data (del-alist 'ideographic-strokes data))
+ (when (setq cell (assq 'japanese-strokes data))