Author: ek.kato
Date: Sat Sep 20 11:23:43 2008
New Revision: 5575
Modified:
trunk/scm/skk.scm
Log:
* scm/skk.scm (skk-proc-state-direct) : Fix handling in
non-matching upper case character in skk-proc-state-direct.
Modified: trunk/scm/skk.scm
==============================================================================
--- trunk/scm/skk.scm (original)
+++ trunk/scm/skk.scm Sat Sep 20 11:23:43 2008
@@ -1112,12 +1112,11 @@
(skk-rk-pending? sc)
(not (rk-current-seq rkc)))
;; ddskk compatible behavior but not in SKK speciation
- (begin
+ (let ((str (rk-push-key! rkc (charcode->string
+ (ichar-downcase key)))))
(skk-context-set-state! sc 'skk-state-kanji)
- (skk-append-string sc (rk-push-key!
- rkc
- (charcode->string
- (ichar-downcase key))))
+ (if str
+ (skk-append-string sc str))
#f)
(let* ((residual-kana (rk-push-key-last! rkc)))
;; handle preceding "n"
