Revision: 7380
Author: deton.kih
Date: Thu Dec 1 03:13:47 2011
Log: * scm/tutcode.scm
- (tutcode-proc-state-on):
Move check of tutcode-history-start, tutcode-undo, tutcode-help,
tutcode-help-clipboard and tutcode-auto-help-redisplay
before postfix conversion key sequences.
http://code.google.com/p/uim/source/detail?r=7380
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Thu Dec 1 03:09:40 2011
+++ /trunk/scm/tutcode.scm Thu Dec 1 03:13:47 2011
@@ -3015,6 +3015,16 @@
(tutcode-context-set-prediction-nr! pc 0)
(tutcode-context-set-state! pc
'tutcode-state-interactive-bushu))
+ ((eq? res 'tutcode-history-start)
+ (tutcode-begin-history pc))
+ ((eq? res 'tutcode-undo)
+ (tutcode-undo pc))
+ ((eq? res 'tutcode-help)
+ (tutcode-help pc))
+ ((eq? res 'tutcode-help-clipboard)
+ (tutcode-help-clipboard pc))
+ ((eq? res 'tutcode-auto-help-redisplay)
+ (tutcode-auto-help-redisplay pc))
((eq? res 'tutcode-postfix-bushu-start)
(tutcode-begin-postfix-bushu-conversion pc))
((eq? res 'tutcode-postfix-mazegaki-start)
@@ -3137,17 +3147,7 @@
((eq? res 'tutcode-selection-seq2kanji-start)
(tutcode-begin-selection-seq2kanji-conversion pc))
((eq? res 'tutcode-clipboard-seq2kanji-start)
- (tutcode-begin-clipboard-seq2kanji-conversion pc))
- ((eq? res 'tutcode-history-start)
- (tutcode-begin-history pc))
- ((eq? res 'tutcode-undo)
- (tutcode-undo pc))
- ((eq? res 'tutcode-help)
- (tutcode-help pc))
- ((eq? res 'tutcode-help-clipboard)
- (tutcode-help-clipboard pc))
- ((eq? res 'tutcode-auto-help-redisplay)
- (tutcode-auto-help-redisplay pc))))))))))
+ (tutcode-begin-clipboard-seq2kanji-conversion pc))))))))))
;;; ¸åÃÖ·¿Éô¼ó¹çÀ®ÊÑ´¹¤ò¹Ô¤¦
(define (tutcode-begin-postfix-bushu-conversion pc)
