-(defun sj3-end-conversion (bunsetsu-list)
- (let ((env (sj3bunsetsu-get-env (car bunsetsu-list)))
- (l bunsetsu-list)
- bunsetsu stdy kugiri-changed)
- (while l
- (setq bunsetsu (car l))
- (setq l (cdr l))
- (setq stdy (sj3bunsetsu-get-stdy bunsetsu))
- (if stdy
- (sj3rpc-bunsetsu-stdy env stdy))
- (if (setq kugiri-changed (sj3bunsetsu-get-kugiri-changed bunsetsu))
- (let ((yomi1 (sj3bunsetsu-get-source bunsetsu))
- (yomi2 (sj3bunsetsu-get-source (car l))))
- (if (/= kugiri-changed (length yomi1))
- (sj3rpc-kugiri-stdy env yomi1 yomi2
- (sj3bunsetsu-get-stdy (car l)))))))))
+(defun sj3-end-conversion (bunsetsu-list abort)
+ (if abort
+ ()
+ (let ((env (sj3bunsetsu-get-env (car bunsetsu-list)))
+ (l bunsetsu-list)
+ bunsetsu stdy kugiri-changed)
+ (while l
+ (setq bunsetsu (car l))
+ (setq l (cdr l))
+ (setq stdy (sj3bunsetsu-get-stdy bunsetsu))
+ (if stdy
+ (sj3rpc-bunsetsu-stdy env stdy))
+ (if (setq kugiri-changed (sj3bunsetsu-get-kugiri-changed bunsetsu))
+ (let ((yomi1 (sj3bunsetsu-get-source bunsetsu))
+ (yomi2 (sj3bunsetsu-get-source (car l))))
+ (if (/= kugiri-changed (length yomi1))
+ (sj3rpc-kugiri-stdy env yomi1 yomi2
+ (sj3bunsetsu-get-stdy (car l))))))))))