Revision: f07fc3ede2b3
Author: KIHARA Hideto <deton....@gmail.com>
Date: Sat Jun 16 18:36:54 2012
Log: Keep pending rk on focus out for consistency with preedit if
tutcode-show-pending-rk? is #t.
* scm/tutcode.scm
- (tutcode-focus-out-handler):
Change not to call rk-flush if tutcode-show-pending-rk? is #t.
http://code.google.com/p/uim/source/detail?r=f07fc3ede2b3
Modified:
/scm/tutcode.scm
=======================================
--- /scm/tutcode.scm Sat Jun 2 18:58:22 2012
+++ /scm/tutcode.scm Sat Jun 16 18:36:54 2012
@@ -5948,9 +5948,10 @@
(define (tutcode-focus-in-handler tc) #f)
(define (tutcode-focus-out-handler c)
- (let* ((tc (tutcode-find-descendant-context c))
- (rkc (tutcode-context-rk-context tc)))
- (rk-flush rkc)))
+ (if (not tutcode-show-pending-rk?)
+ (let* ((tc (tutcode-find-descendant-context c))
+ (rkc (tutcode-context-rk-context tc)))
+ (rk-flush rkc))))
(define tutcode-place-handler tutcode-focus-in-handler)
(define tutcode-displace-handler tutcode-focus-out-handler)
