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

[ekato at freedesktop.org]

Author: ekato
Date: 2005-08-25 21:43:32 -0700 (Thu, 25 Aug 2005)
New Revision: 1324

Modified:
   branches/r5rs/scm/anthy.scm
Log:
* scm/anthy.scm : Merge r1323 from trunk.


Modified: branches/r5rs/scm/anthy.scm
===================================================================
--- branches/r5rs/scm/anthy.scm	2005-08-26 04:42:44 UTC (rev 1323)
+++ branches/r5rs/scm/anthy.scm	2005-08-26 04:43:32 UTC (rev 1324)
@@ -479,7 +479,7 @@
 (define anthy-has-preedit?
   (lambda (ac)
     (or (not (ustr-empty? (anthy-context-preconv-ustr ac)))
-	(> (length (rk-pending (anthy-context-rkc ac))) 0))))
+	(> (string-length (rk-pending (anthy-context-rkc ac))) 0))))
 
 (define anthy-proc-transposing-state
   (lambda (ac key key-state)