Author: iratqq
Date: Fri Apr 11 04:48:02 2008
New Revision: 5411
Modified:
trunk/scm/wnn.scm
Log:
* scm/wnn.scm
(wnn-lib-release-context):
- Turn on save dictionary.
(wnn-lib-commit-segment):
- Call wnn-lib-save-dic.
Modified: trunk/scm/wnn.scm
==============================================================================
--- trunk/scm/wnn.scm (original)
+++ trunk/scm/wnn.scm Fri Apr 11 04:48:02 2008
@@ -62,7 +62,7 @@
(wnn-lib-get-candidate wc-ctx nth)))
(define (wnn-lib-release-context wc)
(let ((wc-ctx (wnn-context-wc-ctx wc)))
- (wnn-lib-destroy-buffer wc-ctx #f)))
+ (wnn-lib-destroy-buffer wc-ctx #t)))
(define (wnn-lib-get-unconv-candidate wc seg-idx)
(let ((wc-ctx (wnn-context-wc-ctx wc)))
(wnn-move wc-ctx seg-idx)
@@ -92,6 +92,7 @@
(define (wnn-lib-commit-segment wc seg delta)
(let ((wc-ctx (wnn-context-wc-ctx wc)))
(wnn-lib-fix wc-ctx)
+ (wnn-lib-save-dic wc-ctx)
(wnn-lib-clear wc-ctx)
#t))
(define (wnn-lib-reset-conversion wc)
