X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fegg.git;a=blobdiff_plain;f=egg%2Fwnn.el;fp=egg%2Fwnn.el;h=9b4e3e4d423c20d8494bb08c44ded4920e550c5a;hp=22822b3f9ac4d2f0ac6a4fa717e07cf74cfd66a7;hb=0db6050c7bc8d536788b1d424357695375d768e2;hpb=d0114d80c7a6a1a573bb3adc0fd4a3b25fa1e27e

diff --git a/egg/wnn.el b/egg/wnn.el
index 22822b3..9b4e3e4 100644
--- 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.")