Revision: 7331
Author: deton.kih
Date: Wed Oct 19 03:59:54 2011
Log: * scm/tutcode.scm
- (tutcode-begin-interactive-bushu-conversion):
Fix mismatch of preedit and shown page on candidate window
when interactive bushu conversion with new bushu is failed.
http://code.google.com/p/uim/source/detail?r=7331
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Tue Oct 18 03:55:37 2011
+++ /trunk/scm/tutcode.scm Wed Oct 19 03:59:54 2011
@@ -3745,11 +3745,14 @@
((null? res)
(tutcode-context-set-head! pc (cdr (tutcode-context-head pc)))
(if (> (tutcode-context-prediction-nr pc) 0)
- (tutcode-activate-candidate-window pc
- 'tutcode-candidate-window-interactive-bushu
- tutcode-candidate-window-activate-delay-for-interactive-bushu
- (tutcode-context-prediction-nr-all pc)
- (tutcode-context-prediction-page-limit pc))))
+ (begin
+ (tutcode-activate-candidate-window pc
+ 'tutcode-candidate-window-interactive-bushu
+ tutcode-candidate-window-activate-delay-for-interactive-bushu
+ (tutcode-context-prediction-nr-all pc)
+ (tutcode-context-prediction-page-limit pc))
+ (tutcode-select-candidate pc
+ (tutcode-context-prediction-index pc)))))
(else
(let ((nr (length res)))
(tutcode-context-set-prediction-word! pc ())
@@ -3772,7 +3775,8 @@
'tutcode-candidate-window-interactive-bushu
tutcode-candidate-window-activate-delay-for-interactive-bushu
nr-all
- page-limit)))))))))
+ page-limit)
+ (tutcode-select-candidate pc 0)))))))))
;;; ¿·¤·¤¤¸õÊä¤òÁªÂò¤¹¤ë
;;; @param pc ¥³¥ó¥Æ¥¥¹¥È¥ê¥¹¥È
