- ;; (when (and (memq 'hanyu-dazidian-vol attributes)
- ;; (setq value (get-char-attribute char 'hanyu-dazidian-vol)))
- ;; (insert (format "(hanyu-dazidian-vol . %d)%s"
- ;; value line-breaking))
- ;; (setq attributes (delq 'hanyu-dazidian-vol attributes))
- ;; )
- ;; (when (and (memq 'hanyu-dazidian-page attributes)
- ;; (setq value (get-char-attribute char 'hanyu-dazidian-page)))
- ;; (insert (format "(hanyu-dazidian-page . %d)%s"
- ;; value line-breaking))
- ;; (setq attributes (delq 'hanyu-dazidian-page attributes))
- ;; )
- ;; (when (and (memq 'hanyu-dazidian-char attributes)
- ;; (setq value (get-char-attribute char 'hanyu-dazidian-char)))
- ;; (insert (format "(hanyu-dazidian-char . %d)%s"
- ;; value line-breaking))
- ;; (setq attributes (delq 'hanyu-dazidian-char attributes))
- ;; )