Revision: 6894 Author: deton.kih Date: Mon Jan 3 17:10:46 2011 Log: * Merge r6893 from trunk.
http://code.google.com/p/uim/source/detail?r=6894 Modified: /branches/1.6/scm/tutcode-bushu.scm ======================================= --- /branches/1.6/scm/tutcode-bushu.scm Mon Dec 27 21:36:42 2010 +++ /branches/1.6/scm/tutcode-bushu.scm Mon Jan 3 17:10:46 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)
