- ;; (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@gb 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))
- )