Hiroyuki Komatsu
komat****@users*****
2005年 3月 3日 (木) 10:14:57 JST
Index: prime/uim/ChangeLog diff -u prime/uim/ChangeLog:1.1.2.18 prime/uim/ChangeLog:1.1.2.19 --- prime/uim/ChangeLog:1.1.2.18 Wed Mar 2 04:59:34 2005 +++ prime/uim/ChangeLog Thu Mar 3 10:14:57 2005 @@ -1,3 +1,10 @@ +2005-03-03 Hiroyuki Komatsu <komat****@taiya*****> + + * prime.scm: + - Changed behaviors of prime-any-keys on + prime-modify-state and prime-segment-state. + - Fixed a bug of prime-application-mode. + 2005-03-02 Hiroyuki Komatsu <komat****@taiya*****> * prime.scm: Index: prime/uim/prime.scm diff -u prime/uim/prime.scm:1.1.2.22 prime/uim/prime.scm:1.1.2.23 --- prime/uim/prime.scm:1.1.2.22 Wed Mar 2 05:43:22 2005 +++ prime/uim/prime.scm Thu Mar 3 10:14:57 2005 @@ -347,9 +347,9 @@ ; (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-pass) + (prime-symbol-key? . prime-command-pass) + (prime-with-control-key? . prime-command-pass) + (prime-any-key? . prime-command-conv-input) )) (define prime-keymap-segment-state @@ -364,7 +364,10 @@ (prime-go-right-key? . prime-command-modify-cursor-right) (prime-expand-segment-key? . prime-command-modify-cursor-expand) (prime-shrink-segment-key? . prime-command-modify-cursor-shrink) - (prime-any-key? . prime-command-pass) + (prime-symbol-key? . prime-command-pass) + (prime-with-control-key? . prime-command-pass) + (prime-any-key? . prime-command-conv-input) +; (prime-any-key? . prime-command-pass) )) ;; Keymaps for English @@ -1392,6 +1395,7 @@ (define prime-command-app-mode (lambda (context key key-state) + (print "prime-command-app-mode") (prime-command-app-mode-internal context key key-state (prime-context-app-mode-key-list context)))) @@ -1556,7 +1560,8 @@ (define prime-commit-raw (lambda (context) - (if (= (prime-context-mode context) prime-mode-latin) + (if (member (prime-context-mode context) + (list prime-mode-latin prime-mode-application)) (im-commit-raw context) (begin ;; Reset the current prime-context
