Hiroyuki Komatsu
komat****@users*****
2004年 12月 24日 (金) 03:27:37 JST
Index: prime/uim/prime.scm
diff -u prime/uim/prime.scm:1.1.2.11 prime/uim/prime.scm:1.1.2.12
--- prime/uim/prime.scm:1.1.2.11 Thu Dec 23 06:52:09 2004
+++ prime/uim/prime.scm Fri Dec 24 03:27:37 2004
@@ -57,6 +57,8 @@
(define prime-custom-display-usage? #t)
(define prime-mask-pending-preedit? #f)
+;; If #t, users can select candidates with pressing a number key.
+(define prime-always-number-selection? #f)
(define prime-engine-command-lookup "lookup_compact")
;(define prime-engine-command-lookup-all "lookup_compact")
@@ -1116,7 +1118,7 @@
(define prime-command-preedit-commit-candidate
(lambda (context key key-state)
(print "prime-command-preedit-commit-candidate")
- (if #f
+ (if prime-always-number-selection?
(let* ((nth (number->candidate-index (numeral-char->number key)))
(cand (prime-get-nth-candidate context nth)))
(if cand
@@ -1129,7 +1131,7 @@
(define prime-command-register-preedit-commit-candidate
(lambda (context key key-state)
(print "prime-command-register-preedit-commit-candidate")
- (if #f
+ (if prime-always-number-selection?
(let* ((nth (number->candidate-index (numeral-char->number key)))
(cand (prime-get-nth-candidate context nth)))
(if cand
Index: prime/uim/ChangeLog
diff -u prime/uim/ChangeLog:1.1.2.11 prime/uim/ChangeLog:1.1.2.12
--- prime/uim/ChangeLog:1.1.2.11 Thu Dec 23 06:52:09 2004
+++ prime/uim/ChangeLog Fri Dec 24 03:27:37 2004
@@ -1,7 +1,8 @@
2004-12-23 Hiroyuki Komatsu <komat****@taiya*****>
* prime.scm:
- Implementing functions for the PRIME2 protocol (for PRIME 0.9.4).
+ - Implementing functions for the PRIME2 protocol (for PRIME 0.9.4).
+ - Added the customize option 'prime-always-number-selection?'.
2004-12-22 Hiroyuki Komatsu <komat****@taiya*****>