+ ;; (when (and (memq 'hanyu-dazidian attributes)
+ ;; (setq value (get-char-attribute char 'hanyu-dazidian)))
+ ;; (insert (format "(hanyu-dazidian %s)%s"
+ ;; (mapconcat #'number-to-string value " ")
+ ;; line-breaking))
+ ;; (setq attributes (delq 'hanyu-dazidian attributes))
+ ;; )