Author: yamakenz
Date: Tue Aug 28 06:08:55 2007
New Revision: 4924
Modified:
trunk/scm/im.scm
Log:
* scm/im.scm
- (im-get-raw-key-str): Fix the always-upcased char. This resolved
the problem that can't type "yes" to the query "[Really purge?
(yes/no) ]" on uim-skk. Thanks No.819 and No.821 of [uim thread 7]
for the report
Modified: trunk/scm/im.scm
==============================================================================
--- trunk/scm/im.scm (original)
+++ trunk/scm/im.scm Tue Aug 28 06:08:55 2007
@@ -389,12 +389,15 @@
(define im-get-raw-key-str
(lambda (key state)
(and (integer? key)
- (<= key 255)
- (integer? state)
- (or (= state 0)
- (= state (assq-cdr 'Shift_key key-state-alist)))
- (charcode->string (ichar-upcase key)))))
-
+ (<= key 255)
+ (integer? state)
+ (cond
+ ((= state 0)
+ (charcode->string key))
+ ((= state (assq-cdr 'Shift_key key-state-alist))
+ (charcode->string (ichar-upcase key)))
+ (else
+ #f)))))
;;
;; dispatchers
