+ (t
+ (when (setq cell (assq 'digit-value data))
+ (setq cell (cdr cell))
+ (insert (format "(digit-value\t. %S)
+ "
+ cell))
+ (setq data (del-alist 'digit-value data))
+ )
+ (when (setq cell (assq 'numeric-value data))
+ (setq cell (cdr cell))
+ (insert (format "(numeric-value\t. %S)
+ "
+ cell))
+ (setq data (del-alist 'numeric-value data))
+ )))
+ (when (setq cell (assq 'iso-10646-comment data))
+ (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\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
+ "
+ 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 'kangxi-strokes data))
+ (setq cell (cdr cell))
+ (unless (eq cell strokes)
+ (insert (format "(kangxi-strokes\t . %S)
+ "
+ cell))
+ (setq strokes cell))
+ (setq data (del-alist 'kangxi-strokes data))
+ )
+ (when (setq cell (assq 'japanese-strokes data))
+ (setq cell (cdr cell))
+ (unless (eq cell strokes)
+ (insert (format "(japanese-strokes\t . %S)
+ "
+ cell))
+ (setq strokes cell))
+ (setq data (del-alist 'japanese-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))
+ ))
+ (when (setq cell (assq '->decomposition data))
+ (setq cell (cdr cell))
+ (insert (format "(->decomposition\t%s)
+ "
+ (mapconcat (lambda (code)
+ (cond ((symbolp code)
+ (symbol-name code))
+ ((integerp code)
+ (format "#x%04X" code))
+ (t
+ (format "\n %S" code))))
+ cell " ")))
+ (setq data (del-alist '->decomposition data))
+ )
+ (when (setq cell (assq '->uppercase data))
+ (setq cell (cdr cell))
+ (insert (format "(->uppercase\t%s)
+ "
+ (mapconcat (lambda (code)
+ (cond ((symbolp code)
+ (symbol-name code))
+ ((integerp code)
+ (format "#x%04X" code))
+ (t
+ (format "\n %S" code))))
+ cell " ")))
+ (setq data (del-alist '->uppercase data))
+ )
+ (when (setq cell (assq '->lowercase data))
+ (setq cell (cdr cell))
+ (insert (format "(->lowercase\t%s)
+ "
+ (mapconcat (lambda (code)
+ (cond ((symbolp code)
+ (symbol-name code))
+ ((integerp code)
+ (format "#x%04X" code))
+ (t
+ (format "\n %S" code))))
+ cell " ")))
+ (setq data (del-alist '->lowercase data))
+ )
+ (when (setq cell (assq '->titlecase data))
+ (setq cell (cdr cell))
+ (insert (format "(->titlecase\t%s)
+ "
+ (mapconcat (lambda (code)
+ (cond ((symbolp code)
+ (symbol-name code))
+ ((integerp code)
+ (format "#x%04X" code))
+ (t
+ (format "\n %S" code))))
+ cell " ")))
+ (setq data (del-alist '->titlecase data))
+ )
+ (setq data
+ (sort data
+ (lambda (a b)
+ (char-attribute-name< (car a)(car b)))))