[uim-commit] r787 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-03-10 04:05:10 -0800 (Thu, 10 Mar 2005)
New Revision: 787

Modified:
   trunk/scm/skk.scm
Log:
* scm/skk.scm
  - (skk-flush): Fix unwanted input mode transition. Thanks Etsushi
    Kato and No.570 of [Anthy/uim thread 5] for cooperation
  - (skk-reset-handler): Simplify in accordance with the change of
    skk-flush


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2005-03-10 10:15:43 UTC (rev 786)
+++ trunk/scm/skk.scm	2005-03-10 12:05:10 UTC (rev 787)
@@ -322,7 +322,8 @@
     (rk-flush (skk-context-rk-context sc))
     (if skk-use-recursive-learning?
 	(skk-editor-flush (skk-context-editor sc)))
-    (skk-context-set-state! sc 'skk-state-direct)
+    (if (not (skk-latin-state? sc))
+	(skk-context-set-state! sc 'skk-state-direct))
     (skk-context-set-head! sc '())
     (skk-context-set-okuri-head! sc "")
     (skk-context-set-okuri! sc '())
@@ -1609,11 +1610,7 @@
 
 (define skk-reset-handler
   (lambda (sc)
-    (let ((st (skk-context-state sc)))
-      (if (not (or
-		(= st 'skk-state-latin)
-		(= st 'skk-state-wide-latin))
-	  (skk-flush sc))))))
+    (skk-flush sc)))
 
 (define skk-get-candidate-handler
   (lambda (sc idx)