Revision: 6328
Author: ek.kato
Date: Mon Apr 19 21:56:58 2010
Log: * scm/ajax-ime.scm
- (ajax-ime-parse) : Return #f when not receiving meaningful
result.
- (ajax-ime-conversion) : Return list of original string when
conversion fails.
http://code.google.com/p/uim/source/detail?r=6328
Modified:
/trunk/scm/ajax-ime.scm
=======================================
--- /trunk/scm/ajax-ime.scm Sun Apr 18 20:00:18 2010
+++ /trunk/scm/ajax-ime.scm Mon Apr 19 21:56:58 2010
@@ -93,7 +93,7 @@
(w2 (ajax-ime:parse-quoted-word2* port)))
(if (and (string? w1) (list? w2))
(list (append (list w1) w2))
- '(""))))))
+ #f)))))
(define (ajax-ime-conversion str opts)
(define (icovn-convert to-code from-code from-str)
@@ -121,9 +121,10 @@
euc-str))
(let ((ret (fetch (make-query))))
- (if ret
- (ajax-ime-parse (fetch (make-query)))
- '(""))))
+ (or
+ (and ret
+ (ajax-ime-parse ret))
+ (list (list str)))))
(define (ajax-ime-lib-init)
#t)
--
Subscription settings: http://groups.google.com/group/uim-commit/subscribe?hl=en
