[uim-commit] r1314 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-08-25 11:30:27 -0700 (Thu, 25 Aug 2005)
New Revision: 1314

Modified:
   trunk/scm/anthy.scm
Log:
* scm/anthy.scm (anthy-proc-input-state-no-preedit) : Fix
  parenthesis.
(anthy-input-state-preedit) : Use string-length instead of length
  on (rk-pending rkc).


Modified: trunk/scm/anthy.scm
===================================================================
--- trunk/scm/anthy.scm	2005-08-25 17:15:32 UTC (rev 1313)
+++ trunk/scm/anthy.scm	2005-08-25 18:30:27 UTC (rev 1314)
@@ -473,8 +473,8 @@
 				   res)
 		(ustr-insert-elem! (anthy-context-raw-ustr ac)
 				   key-str))
-	      (if (not (rk-pending rkc)
-                  (anthy-commit-raw ac))))))))))
+	      (if (not (rk-pending rkc))
+                  (anthy-commit-raw ac)))))))))
 
 (define anthy-has-preedit?
   (lambda (ac)
@@ -735,7 +735,7 @@
        (and (not (ustr-cursor-at-beginning? preconv-str))
 	    (cons preedit-underline
 		  (string-append-map-ustr-former extract-kana preconv-str)))
-       (and (> (length pending) 0)
+       (and (> (string-length pending) 0)
 	    (cons preedit-underline pending))
        (and (anthy-has-preedit? ac)
 	    (cons preedit-cursor ""))