=ucs-var-002
=ucs-var-003
=ucs-var-004
+ =ucs-var-006
+ =ucs-var-008
=ucs-var-010
=ucs-itaiji-001
=ucs-itaiji-002
=ucs-itaiji-005
=ucs-itaiji-006
=ucs-itaiji-008
+ =ucs-itaiji-009
=big5-cdp-var-003
=big5-cdp-var-004
=big5-cdp-var-005
- =>ucs@iwds-1))
+ =>ucs@iwds-1
+ ==ucs@gb
+ =ucs@JP/hanazono))
;;; @ char-db formatters
line-breaking))
(setq attributes (delq '->mojikyo attributes))
)
- (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))
- )
+ ;; (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))
+ ;; )
(unless readable
(dolist (ignored '(composition
->denotational <-subsumptive ->ucs-unified