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