Hiroyuki Komatsu
komat****@users*****
2004年 12月 31日 (金) 15:05:29 JST
Index: prime/uim/prime.scm
diff -u prime/uim/prime.scm:1.1.2.14 prime/uim/prime.scm:1.1.2.15
--- prime/uim/prime.scm:1.1.2.14 Fri Dec 31 06:20:56 2004
+++ prime/uim/prime.scm Fri Dec 31 15:05:29 2004
@@ -296,27 +296,29 @@
(define prime-keymap-conv-state
'(
- (prime-register-key? . prime-command-register-mode)
- (prime-next-candidate-key? . prime-command-conv-next)
- (prime-prev-candidate-key? . prime-command-conv-prev)
- (prime-cancel-key? . prime-command-conv-cancel)
- (prime-backspace-key? . prime-command-conv-cancel)
- (prime-commit-key? . prime-command-conv-commit)
- (prime-go-left-edge-key? . prime-command-modify-cursor-left-edge)
- (prime-go-right-edge-key? . prime-command-modify-cursor-right-edge)
- (prime-go-left-key? . prime-command-modify-cursor-left)
- (prime-go-right-key? . prime-command-modify-cursor-right)
- (prime-cand-select-key? . prime-command-conv-select)
- ;; Typing mode key bindings
- (prime-typing-mode-hiragana-key? . prime-command-mode-hiragana)
- (prime-typing-mode-katakana-key? . prime-command-mode-katakana)
- (prime-typing-mode-hankana-key? . prime-command-mode-hankana)
- (prime-typing-mode-wideascii-key? . prime-command-mode-wideascii)
- (prime-typing-mode-ascii-key? . prime-command-mode-ascii)
- (prime-symbol-key? . prime-command-pass)
- (prime-with-control-key? . prime-command-pass)
- (prime-any-key? . prime-command-conv-input)
- ))
+ (prime-register-key? . prime-command-register-mode)
+ (prime-next-candidate-key? . prime-command-conv-next)
+ (prime-prev-candidate-key? . prime-command-conv-prev)
+ (prime-cancel-key? . prime-command-conv-cancel)
+ (prime-backspace-key? . prime-command-conv-cancel)
+ (prime-commit-key? . prime-command-conv-commit)
+ (prime-go-left-edge-key? . prime-command-modify-cursor-left-edge)
+ (prime-go-right-edge-key? . prime-command-modify-cursor-right-edge)
+ (prime-go-left-key? . prime-command-modify-cursor-left)
+ (prime-go-right-key? . prime-command-modify-cursor-right)
+ (prime-expand-segment-key? . prime-command-modify-cursor-right)
+ (prime-shrink-segment-key? . prime-command-modify-cursor-left)
+ (prime-cand-select-key? . prime-command-conv-select)
+ ;; Typing mode key bindings
+ (prime-typing-mode-hiragana-key? . prime-command-mode-hiragana)
+ (prime-typing-mode-katakana-key? . prime-command-mode-katakana)
+ (prime-typing-mode-hankana-key? . prime-command-mode-hankana)
+ (prime-typing-mode-wideascii-key? . prime-command-mode-wideascii)
+ (prime-typing-mode-ascii-key? . prime-command-mode-ascii)
+ (prime-symbol-key? . prime-command-pass)
+ (prime-with-control-key? . prime-command-pass)
+ (prime-any-key? . prime-command-conv-input)
+ ))
(define prime-keymap-register-conv-state
'(
@@ -573,6 +575,7 @@
(lambda (command key key-state)
((make-key-predicate (modify-key-strs-implicitly command)) key key-state)))
+;;;; ------------------------------------------------------------
;;;; prime-uim:
;;;; ------------------------------------------------------------