Author: ek.kato
Date: Sat Nov 29 21:06:56 2008
New Revision: 5640
Modified:
branches/1.5/scm/anthy.scm
Log:
* Port r5639 from trunk.
Modified: branches/1.5/scm/anthy.scm
==============================================================================
--- branches/1.5/scm/anthy.scm (original)
+++ branches/1.5/scm/anthy.scm Sat Nov 29 21:06:56 2008
@@ -758,13 +758,13 @@
(set! type anthy-candidate-type-hiragana))
((= transposing-type anthy-type-katakana)
(set! type anthy-candidate-type-katakana)))
- (if (and ac-id
- (> (string-length preconv-str) 0)
- type)
- (begin
- (anthy-lib-set-string ac-id preconv-str)
- (expand-segment)
- (anthy-lib-commit-segment ac-id 0 type))))))
+ (if (and ac-id
+ (> (string-length preconv-str) 0)
+ type)
+ (begin
+ (anthy-lib-set-string ac-id preconv-str)
+ (expand-segment)
+ (anthy-lib-commit-segment ac-id 0 type))))))
(define anthy-proc-transposing-state
(lambda (ac key key-state)
