[uim-commit] r1406 - branches/r5rs/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-04 00:45:18 -0700 (Sun, 04 Sep 2005)
New Revision: 1406

Modified:
   branches/r5rs/scm/generic.scm
Log:
* scm/generic.scm (generic-commit-by-numkey) : Port r1405 from trunk.


Modified: branches/r5rs/scm/generic.scm
===================================================================
--- branches/r5rs/scm/generic.scm	2005-09-04 07:44:19 UTC (rev 1405)
+++ branches/r5rs/scm/generic.scm	2005-09-04 07:45:18 UTC (rev 1406)
@@ -172,6 +172,7 @@
     (let* ((rkc (generic-context-rk-context pc))
 	   (cs (rk-current-seq rkc))
 	   (n (generic-context-rk-nth pc) (cadr cs))
+	   (nr (length (cadr cs)))
 	   (cur-page (if (= generic-nr-candidate-max 0)
 			 0
 			 (quotient n generic-nr-candidate-max)))
@@ -182,9 +183,13 @@
 				 (else
 				  pageidx)))
 	   (idx (+ (* cur-page generic-nr-candidate-max) compensated-pageidx)))
-      (im-commit pc (nth idx (cadr cs)))
-      (im-deactivate-candidate-selector pc)
-      (rk-flush rkc))))
+      (if (< idx nr)
+	  (begin
+	    (im-commit pc (nth idx (cadr cs)))
+	    (im-deactivate-candidate-selector pc)
+	    (rk-flush rkc)
+	    #t)
+	  #f))))
 
 (define generic-proc-input-state-without-preedit
   (lambda (pc key state rkc)