- (setq data (sort data
- (lambda (a b)
- (let ((ka (car a))
- (kb (car b)))
- (cond ((find-charset ka)
- (cond ((find-charset kb)
- (cond ((= (charset-dimension ka)
- (charset-dimension kb))
- (< (charset-final ka)
- (charset-final kb)))
- (t
- (< (charset-dimension ka)
- (charset-dimension kb))
- )))
- (t)))
- ((find-charset kb)
- t)
- ((symbolp ka)
- (cond ((symbolp kb)
- (string< (symbol-name ka)
- (symbol-name kb)))
- (t)))
- ((symbolp kb)
- nil))))))
+ (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 '->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)))))