Revision: 6390
Author: deton.kih
Date: Fri May 21 20:00:51 2010
Log: * scm/tutcode.scm
- (tutcode-check-candidate-window-begin, tutcode-proc-state-kigou):
Change to use tutcode-nr-candidate-max-for-kigou-mode for kigou mode.
* scm/tutcode-custom.scm
- (tutcode-nr-candidate-max-for-kigou-mode): New custom variable
http://code.google.com/p/uim/source/detail?r=6390
Modified:
/trunk/scm/tutcode-custom.scm
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode-custom.scm Sun Apr 4 20:35:54 2010
+++ /trunk/scm/tutcode-custom.scm Fri May 21 20:00:51 2010
@@ -114,6 +114,12 @@
(N_ "Number of candidates in candidate window at a time")
(N_ "long description will be here."))
+(define-custom 'tutcode-nr-candidate-max-for-kigou-mode 10
+ '(tutcode candwin)
+ '(integer 1 99)
+ (N_ "Number of candidates in candidate window at a time for kigou mode")
+ (N_ "long description will be here."))
+
;; activity dependency
(custom-add-hook 'tutcode-candidate-op-count
'custom-activity-hooks
=======================================
--- /trunk/scm/tutcode.scm Fri May 7 03:26:32 2010
+++ /trunk/scm/tutcode.scm Fri May 21 20:00:51 2010
@@ -499,7 +499,9 @@
(im-activate-candidate-selector
pc
(tutcode-context-nr-candidates pc)
- tutcode-nr-candidate-max))))
+ (if (eq? (tutcode-context-state pc) 'tutcode-state-kigou)
+ tutcode-nr-candidate-max-for-kigou-mode
+ tutcode-nr-candidate-max)))))
;;; preeditɽ¼¨¤ò¹¹¿·¤¹¤ë¡£
;;; @param pc ¥³¥ó¥Æ¥¥¹¥È¥ê¥¹¥È
@@ -625,9 +627,11 @@
(tutcode-reset-candidate-window pc)
(tutcode-begin-kigou-mode pc))
((tutcode-next-page-key? key key-state)
- (tutcode-change-candidate-index pc tutcode-nr-candidate-max))
+ (tutcode-change-candidate-index pc
+ tutcode-nr-candidate-max-for-kigou-mode))
((tutcode-prev-page-key? key key-state)
- (tutcode-change-candidate-index pc (- tutcode-nr-candidate-max)))
+ (tutcode-change-candidate-index pc
+ (- tutcode-nr-candidate-max-for-kigou-mode)))
((or
(tutcode-commit-key? key key-state)
(tutcode-return-key? key key-state))
