3 new revisions:
Revision: 9ec012f05168
Author: KIHARA Hideto <[email protected]>
Date: Sat Jun 2 18:58:22 2012
Log: Fix division by zero error when label key is typed just after
entering...
http://code.google.com/p/uim/source/detail?r=9ec012f05168
Revision: 58e8d49bcb3f
Author: KIHARA Hideto <[email protected]>
Date: Sat Jun 16 18:36:54 2012
Log: Keep pending rk on focus out for consistency with preedit if
tutcode-s...
http://code.google.com/p/uim/source/detail?r=58e8d49bcb3f
Revision: 127dda613dcf
Author: KIHARA Hideto <[email protected]>
Date: Tue Jul 3 04:39:54 2012
Log: Fix unmatched number args error in
tutcode-auto-help-bushu-decompose-t...
http://code.google.com/p/uim/source/detail?r=127dda613dcf
==============================================================================
Revision: 9ec012f05168
Author: KIHARA Hideto <[email protected]>
Date: Sat Jun 2 18:58:22 2012
Log: Fix division by zero error when label key is typed just after
entering interactive bushu mode.
* scm/tutcode.scm
- (tutcode-commit-by-label-key-for-prediction):
Add check of zero before calling remainder.
http://code.google.com/p/uim/source/detail?r=9ec012f05168
Modified:
/scm/tutcode.scm
=======================================
--- /scm/tutcode.scm Thu May 17 03:42:55 2012
+++ /scm/tutcode.scm Sat Jun 2 18:58:22 2012
@@ -1546,7 +1546,7 @@
(nr (tutcode-lib-get-nr-predictions pc))
;; XXX:½Ï¸ì¥¬¥¤¥É¤Î¥Ú¡¼¥¸¿ô¤ÎÊý¤¬Â¿¤¤¾ì¹ç¡¢
;;
Êä´°¸õÊä¤Ï¥ë¡¼¥×¤·¤Æ2½çÌܰʹߤβÄǽÀ¤¢¤ê(ɽ·Á¼°candwin¤Ç¤Ê¤¤¾ì¹ç)
- (i (remainder idx nr)))
+ (i (if (zero? nr) -1 (remainder idx nr))))
(if (>= i 0)
(begin
(case mode
==============================================================================
Revision: 58e8d49bcb3f
Author: KIHARA Hideto <[email protected]>
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=58e8d49bcb3f
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)
==============================================================================
Revision: 127dda613dcf
Author: KIHARA Hideto <[email protected]>
Date: Tue Jul 3 04:39:54 2012
Log: Fix unmatched number args error in
tutcode-auto-help-bushu-decompose-tc23.
* scm/tutcode-bushu.scm
- (tutcode-auto-help-bushu-decompose-tc23):
Fix args for tutcode-bushu-for-char.
http://code.google.com/p/uim/source/detail?r=127dda613dcf
Modified:
/scm/tutcode-bushu.scm
=======================================
--- /scm/tutcode-bushu.scm Wed May 2 16:08:48 2012
+++ /scm/tutcode-bushu.scm Tue Jul 3 04:39:54 2012
@@ -902,7 +902,7 @@
((seq1 (tutcode-auto-help-get-stroke (car lis) rule))
(diff (if seq1
(tutcode-bushu-subtract-set
- (tutcode-bushu-for-char (car lis) bushu-list))
+ (tutcode-bushu-for-char (car lis)) bushu-list)
())))
(if seq1
(let loop2
