egg-980316.

[elisp/egg.git] / egg / wnn.el

diff --git a/egg/wnn.el b/egg/wnn.el
index 22822b3..9b4e3e4 100644 (file)
--- a/egg/wnn.el
+++ b/egg/wnn.el
@@ -348,10 +348,12 @@ Return the list of bunsetsu."
   (concat (wnn-bunsetsu-get-yomi bunsetsu)
          (wnn-bunsetsu-get-fuzokugo bunsetsu)))
 
-(defun wnn-end-conversion (bunsetsu-info-list)
-  (let ((env (wnn-bunsetsu-get-env (car bunsetsu-info-list))))
-    (wnn-update-frequency env bunsetsu-info-list)
-    (wnnenv-set-daibunsetsu-info env nil)))
+(defun wnn-end-conversion (bunsetsu-info-list abort)
+  (if abort
+      ()
+    (let ((env (wnn-bunsetsu-get-env (car bunsetsu-info-list))))
+      (wnn-update-frequency env bunsetsu-info-list)
+      (wnnenv-set-daibunsetsu-info env nil))))
 
 (defvar wnn-sticky-environment-flag nil
   "*Flag which specifies sticky environment.")