- (when (and (memq 'shinjigen-1-radical attributes)
- (setq value (get-char-attribute char 'shinjigen-1-radical)))
- (unless (eq value radical)
- (insert (format "(shinjigen-1-radical . %S)\t; %c%s"
- value
- (ideographic-radical value)
- line-breaking))
- (or radical
- (setq radical value)))
- (setq attributes (delq 'shinjigen-1-radical attributes))
- )
+ ;; (when (and (memq 'shinjigen-1-radical attributes)
+ ;; (setq value (get-char-attribute char 'shinjigen-1-radical)))
+ ;; (unless (eq value radical)
+ ;; (insert (format "(shinjigen-1-radical . %S)\t; %c%s"
+ ;; value
+ ;; (ideographic-radical value)
+ ;; line-breaking))
+ ;; (or radical
+ ;; (setq radical value)))
+ ;; (setq attributes (delq 'shinjigen-1-radical attributes))
+ ;; )