Revision: 152216b64b1d
Author: KIHARA Hideto <[email protected]>
Date: Fri Apr 13 17:19:59 2012
Log: Support tutcode-verbose-stroke-key on prefix (interactive) bushu
conversion.
* scm/tutcode.scm
- (tutcode-proc-state-bushu, tutcode-proc-state-interactive-bushu):
Use first key in pending sequence as bushu by
tutcode-verbose-stroke-key.
http://code.google.com/p/uim/source/detail?r=152216b64b1d
Modified:
/scm/tutcode.scm
=======================================
--- /scm/tutcode.scm Sun Apr 8 01:54:18 2012
+++ /scm/tutcode.scm Fri Apr 13 17:19:59 2012
@@ -4489,7 +4489,10 @@
(charcode->string key) 'tutcode-predicting-bushu)))
((not (rk-expect-key? rkc (charcode->string key)))
(if (> (length (rk-context-seq rkc)) 0)
- (rk-flush rkc)
+ (begin
+ (if (tutcode-verbose-stroke-key? key key-state)
+ (set! res (last (rk-context-seq rkc))))
+ (rk-flush rkc))
(set! res (charcode->string key))))
(else
(set! res (tutcode-push-key! pc (charcode->string key)))))
@@ -4670,7 +4673,10 @@
'tutcode-predicting-interactive-bushu)))
((not (rk-expect-key? rkc (charcode->string key)))
(if (> (length (rk-context-seq rkc)) 0)
- (rk-flush rkc)
+ (begin
+ (if (tutcode-verbose-stroke-key? key key-state)
+ (set! res (last (rk-context-seq rkc))))
+ (rk-flush rkc))
(set! res (charcode->string key))))
(else
(set! res (tutcode-push-key! pc (charcode->string key)))))
