Revision: 6461
Author: deton.kih
Date: Sun Jun 20 02:56:21 2010
Log: * scm/tutcode.scm
- (tutcode-check-stroke-help-window-begin): Fix assertion `len' failure
in uim_cand_win_tbl_gtk_set_page when type key which is
not in tutcode-heading-label-char-list-for-stroke-help
http://code.google.com/p/uim/source/detail?r=6461
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Sat Jun 19 01:57:01 2010
+++ /trunk/scm/tutcode.scm Sun Jun 20 02:56:21 2010
@@ -549,11 +549,12 @@
(lambda (elem)
(member elem
tutcode-heading-label-char-list-for-stroke-help))
(delete-duplicates (rk-expect rkc)))))
- (tutcode-context-set-candidate-window! pc #t)
- (im-activate-candidate-selector
- pc
- (length (tutcode-context-stroke-help pc))
- (length tutcode-heading-label-char-list-for-stroke-help)))))
+ (if (not (null? (tutcode-context-stroke-help pc)))
+ (begin
+ (tutcode-context-set-candidate-window! pc #t)
+ (im-activate-candidate-selector pc
+ (length (tutcode-context-stroke-help pc))
+ (length tutcode-heading-label-char-list-for-stroke-help)))))))
;;; preeditɽ¼¨¤ò¹¹¿·¤¹¤ë¡£
;;; @param pc ¥³¥ó¥Æ¥¥¹¥È¥ê¥¹¥È
