[uim-commit] r1082 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-30 23:11:18 -0700 (Sat, 30 Jul 2005)
New Revision: 1082

Modified:
   trunk/scm/m17nlib.scm
Log:
* scm/m17nlib.scm: Refactoring. Behavior should not be changed.
 -(m17nlib-push-key): Removed off-key check from this procedure.
 -(m17nlib-press-key-handler): off-key check would be processed
   in this procedure.


Modified: trunk/scm/m17nlib.scm
===================================================================
--- trunk/scm/m17nlib.scm	2005-07-31 06:06:00 UTC (rev 1081)
+++ trunk/scm/m17nlib.scm	2005-07-31 06:11:18 UTC (rev 1082)
@@ -258,13 +258,7 @@
   (lambda (mc key key-state)
     (let* ((mid (m17nlib-context-mc-id mc))
 	   (mkey (m17nlib-translate-ukey-to-mkey key key-state)))
-      (if (m17nlib-lib-push-symbol-key mid mkey)
-	  #t
-	  (if (m17nlib-off-key? key key-state)
-	      (begin
-		(m17nlib-context-set-on! mc #f)
-		#f)
-	      #f)))))
+      (m17nlib-lib-push-symbol-key mid mkey))))
 
 (define m17nlib-press-key-handler
   (lambda (mc key key-state)
@@ -277,7 +271,7 @@
 		     (commit-str (cdr result)))
 		(if (string=? commit-str "")
 		    (if (m17nlib-off-key? key key-state)
-			#f
+			(m17nlib-context-set-on! mc #f)
 			(im-commit-raw mc))
 		    (begin
 		      (im-commit mc commit-str)