Hiroyuki Komatsu
komat****@users*****
2005年 3月 2日 (水) 05:43:22 JST
Index: prime/uim/prime.scm
diff -u prime/uim/prime.scm:1.1.2.21 prime/uim/prime.scm:1.1.2.22
--- prime/uim/prime.scm:1.1.2.21 Wed Mar 2 04:59:34 2005
+++ prime/uim/prime.scm Wed Mar 2 05:43:22 2005
@@ -355,7 +355,7 @@
(define prime-keymap-segment-state
'(
(prime-cancel-key? . prime-command-segment-cancel)
- (prime-commit-key? . prime-command-segment-commit)
+ (prime-commit-key? . prime-command-modify-commit)
(prime-next-candidate-key? . prime-command-segment-next)
(prime-prev-candidate-key? . prime-command-segment-prev)
(prime-go-left-edge-key? . prime-command-modify-cursor-left-edge)
@@ -1202,9 +1202,12 @@
;; TODO: (2005-01-12) <Hiroyuki Komatsu>
(define prime-segment-selection-move
(lambda (context selection-index)
- (if (or (< selection-index 0)
- (>= selection-index (prime-segment-get-candidates-length context)))
- (set! selection-index 0))
+ (cond
+ ((< selection-index 0)
+ (set! selection-index (- (prime-segment-get-candidates-length context)
+ 1)))
+ ((>= selection-index (prime-segment-get-candidates-length context))
+ (set! selection-index 0)))
(prime-context-set-segment-nth! context selection-index)
(prime-context-set-modification! context
(prime-engine-segment-select