Revision: 6893
Author: deton.kih
Date: Mon Jan 3 17:04:00 2011
Log: * scm/tutcode-bushu.scm
- (tutcode-bushu-weak-compose-set):
Fix bug that some bushu conversion does not work (ex. $B%&6x(B ->
$B6w(B).
Change to do nothing for only one char (like tc-2.3.1-22.5).
http://code.google.com/p/uim/source/detail?r=6893
Modified:
/trunk/scm/tutcode-bushu.scm
=======================================
--- /trunk/scm/tutcode-bushu.scm Mon Dec 27 03:12:47 2010
+++ /trunk/scm/tutcode-bushu.scm Mon Jan 3 17:04:00 2011
@@ -328,9 +328,10 @@
all-list)))
(define (tutcode-bushu-weak-compose-set char-list strong-compose-set)
- (let ((bushu-list (append-map tutcode-bushu-for-char char-list)))
+ (if (null? (cdr char-list)) ; char-list ¤¬°ìʸ»ú¤À¤±¤Î»þ¤Ï²¿¤â¤·¤Ê¤¤
+ ()
(tutcode-bushu-subtract-set
- (tutcode-bushu-all-compose-set char-list bushu-list)
+ (tutcode-bushu-all-compose-set char-list ())
strong-compose-set)))
(define (tutcode-bushu-subset bushu-list)
