[uim-commit] r889 - trunk/scm

[kzk at freedesktop.org]

Author: kzk
Date: 2005-06-18 06:19:02 -0700 (Sat, 18 Jun 2005)
New Revision: 889

Modified:
   trunk/scm/anthy.scm
Log:
* scm/anthy.scm
  - (anthy-proc-transposing-state): commit transposing string in pressing
    the keys which are not the transposing-trigger.


Modified: trunk/scm/anthy.scm
===================================================================
--- trunk/scm/anthy.scm	2005-06-18 12:49:27 UTC (rev 888)
+++ trunk/scm/anthy.scm	2005-06-18 13:19:02 UTC (rev 889)
@@ -487,16 +487,16 @@
      ((anthy-transpose-as-wide-latin-key? key key-state)
       (anthy-context-set-transposing-type! ac anthy-type-wide-latin))
 
-     ((anthy-commit-key? key key-state)
+     (else
       (begin
+	; commit
 	(im-commit ac (anthy-transposing-text ac))
-	(anthy-flush ac)))
+	(anthy-flush ac)
+	(if (not (anthy-commit-key? key key-state))
+	    (begin 
+	      (anthy-context-set-transposing! ac #f)
+	      (anthy-proc-input-state ac key key-state))))))))
 
-     (else
-      (begin
-	(anthy-context-set-transposing! ac #f)
-	(anthy-proc-input-state-with-preedit ac key key-state))))))
-
 (define anthy-proc-input-state-with-preedit
   (lambda (ac key key-state)
     (let ((preconv-str (anthy-context-preconv-ustr ac))