Revision: 6977
Author: deton.kih
Date: Wed Feb 23 02:52:07 2011
Log: * scm/tutcode.scm
- (tutcode-proc-state-kigou):
Change to commit by label key regardless of
tutcode-commit-candidate-by-label-key?.
Change not to take return key for commit to pass it to application.
http://code.google.com/p/uim/source/detail?r=6977
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Wed Feb 23 02:50:54 2011
+++ /trunk/scm/tutcode.scm Wed Feb 23 02:52:07 2011
@@ -2748,8 +2748,7 @@
(tutcode-context-set-state! pc 'tutcode-state-on))
;; ¥¹¥Ú¡¼¥¹¥¡¼¤ÇÁ´³Ñ¥¹¥Ú¡¼¥¹ÆþÎϲÄǽ¤È¤¹¤ë¤¿¤á¡¢
;; next-candidate-key?¤Î¥Á¥§¥Ã¥¯¤è¤êÁ°¤Ëheading-label-char?¤ò¥Á¥§¥Ã¥¯
- ((and tutcode-commit-candidate-by-label-key?
- (not (and (modifier-key-mask key-state)
+ ((and (not (and (modifier-key-mask key-state)
(not (shift-key-mask key-state))))
(tutcode-heading-label-char-for-kigou-mode? key))
(tutcode-commit-by-label-key-for-kigou-mode pc (charcode->string
key))
@@ -2769,9 +2768,7 @@
((tutcode-prev-page-key? key key-state)
(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))
+ ((tutcode-commit-key? key key-state) ; return-key¤Ï¥¢¥×¥ê¤ËÅϤ¹
(tutcode-commit pc (tutcode-prepare-commit-string-for-kigou-mode
pc)))
((or
(symbol? key)
