- (when (and (memq '=>ucs attributes)
- (setq value (get-char-attribute char '=>ucs)))
- (insert (format "(=>ucs\t\t. #x%04X)\t; %c%s"
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '=>ucs attributes))
- )
- (when (and (memq '=>ucs* attributes)
- (setq value (get-char-attribute char '=>ucs*)))
- (insert (format "(=>ucs*\t\t. #x%04X)\t; %c%s"
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '=>ucs* attributes))
- )
- (when (and (memq '=>ucs-gb attributes)
- (setq value (get-char-attribute char '=>ucs-gb)))
- (insert (format "(=>ucs-gb\t\t. #x%04X)\t; %c%s"
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '=>ucs-gb attributes))
- )
- (when (and (memq '=>ucs-cns attributes)
- (setq value (get-char-attribute char '=>ucs-cns)))
- (insert (format "(=>ucs-cns\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-cns value)
- line-breaking))
- (setq attributes (delq '=>ucs-cns attributes))
- )
- (when (and (memq '=>ucs-big5 attributes)
- (setq value (get-char-attribute char '=>ucs-big5)))
- (insert (format "(=>ucs-big5\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-big5 value)
- line-breaking))
- (setq attributes (delq '=>ucs-big5 attributes))
- )
- (when (and (memq '=>ucs-jis attributes)
- (setq value (get-char-attribute char '=>ucs-jis)))
- (insert (format "(=>ucs-jis\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-jis value)
- line-breaking))
- (setq attributes (delq '=>ucs-jis attributes))
- )
- (when (and (memq '=>ucs-ks attributes)
- (setq value (get-char-attribute char '=>ucs-ks)))
- (insert (format "(=>ucs-ks\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-ks value)
- line-breaking))
- (setq attributes (delq '=>ucs-ks attributes))
- )
- (when (and (memq '->ucs attributes)
- (setq value (get-char-attribute char '->ucs)))
- (insert (format (if char-db-convert-obsolete-format
- "(=>ucs\t\t. #x%04X)\t; %c%s"
- "(->ucs\t\t. #x%04X)\t; %c%s")
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '->ucs attributes))
- )
+ ;; (when (and (memq '<-denotational attributes)
+ ;; (setq value (get-char-attribute char '<-denotational))
+ ;; (null (cdr value))
+ ;; (setq value (encode-char (car value) 'ucs 'defined-only)))
+ ;; (insert (format "(%-18s . #x%04X)\t; %c%s"
+ ;; '=>ucs value (decode-char 'ucs value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '<-denotational attributes)))
+ (dolist (name '(=>ucs =>ucs*))
+ (when (and (memq name attributes)
+ (setq value (get-char-attribute char name)))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ name value (decode-char '=ucs value)
+ line-breaking))
+ (setq attributes (delq name attributes))))
+ (dolist (name '(=>ucs@gb =>ucs@cns =>ucs@jis =>ucs@ks =>ucs@big5))
+ (when (and (memq name attributes)
+ (setq value (get-char-attribute char name)))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ name value
+ (decode-char (intern
+ (concat "="
+ (substring
+ (symbol-name name) 2)))
+ value)
+ line-breaking))
+ (setq attributes (delq name attributes))
+ ))
+ (dolist (name '(=>daikanwa))
+ (when (and (memq name attributes)
+ (setq value (get-char-attribute char name)))
+ (insert
+ (if (integerp value)
+ (format "(%-18s . %05d)\t; %c%s"
+ name value (decode-char '=daikanwa value)
+ line-breaking)
+ (format "(%-18s %s)\t; %c%s"
+ name
+ (mapconcat (function prin1-to-string)
+ value " ")
+ (char-representative-of-daikanwa char)
+ line-breaking)))
+ (setq attributes (delq name attributes))))