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