- (when (setq entry-cobj (concord-kanbun-add-morpheme-entry entry))
- (concord-object-put mjc-cobj '->entry@morpheme (list entry-cobj)))
+ (concord-object-put mjc-cobj
+ '=number concord-kanbun-allocated-morpheme-id-max)
+ (setq entry-cobj (concord-kanbun-add-morpheme-entry entry))
+ (setq wc-cobj (concord-kanbun-add-word-class
+ word-superclass word-class
+ word-subclass1 word-subclass2
+ word-subclass3))
+ (concord-object-put mjc-cobj '->word-class (list wc-cobj))
+ (setq wc-canonical-flag
+ (concord-kanbun-word-class-canonical-p wc-cobj))
+ (concord-object-put mjc-cobj
+ (if wc-canonical-flag
+ '->entry@morpheme
+ '->entry@morpheme/misc)
+ (list entry-cobj))