[uim] push by deton....@gmail.com - Fix bug that key which is not in rule (ex. "5") is not entered on (int... on 2012-04-08 09:13 GMT

[codesite-noreply]

Revision: ec3214287149
Author:   KIHARA Hideto <de...@m1.interq.or.jp>
Date:     Sun Apr  8 01:54:18 2012
Log:      Fix bug that key which is not in rule (ex. "5") is not entered on  
(interactive) bushu conversion.

* scm/tutcode.scm
  - (tutcode-proc-state-bushu, tutcode-proc-state-interactive-bushu):
    Fix scope error introduced at commit:effa429.

http://code.google.com/p/uim/source/detail?r=ec3214287149

Modified:
 /scm/tutcode.scm

=======================================
--- /scm/tutcode.scm    Mon Jan 23 02:43:00 2012
+++ /scm/tutcode.scm    Sun Apr  8 01:54:18 2012
@@ -4492,7 +4492,7 @@
          (rk-flush rkc)
          (set! res (charcode->string key))))
       (else
-       (set! res (tutcode-push-key! pc (charcode->string key)))
+       (set! res (tutcode-push-key! pc (charcode->string key)))))
     (cond
       ((string? res)
         ;; ºÆµ¢Åª¤ËÉô¼ó¹çÀ®¤µ¤ì¤ë¾ì¹ç¤¬¤¢¤ë¤Î¤Ç¡¢headÁ´ÂΤòundoÍѤËÊÝ»ý
@@ -4512,7 +4512,7 @@
         ;;XXX Éô¼ó¹çÀ®ÊÑ´¹Ãæ¤Ï¸ò¤¼½ñ¤­ÊÑ´¹Åù¤Ï̵¸ú¤Ë¤¹¤ë
         ))
       ((procedure? res)
-       (res 'tutcode-state-bushu pc)))))))
+       (res 'tutcode-state-bushu pc)))))

 ;;; Éô¼ó¹çÀ®ÊÑ´¹³«»Ï
 ;;; @param char ¿·¤¿¤ËÆþÎϤµ¤ì¤¿Ê¸»ú(2ÈÖÌܤÎÉô¼ó)
@@ -4673,7 +4673,7 @@
              (rk-flush rkc)
              (set! res (charcode->string key))))
           (else
-           (set! res (tutcode-push-key! pc (charcode->string key)))
+           (set! res (tutcode-push-key! pc (charcode->string key)))))
         (cond
           ((string? res)
             (tutcode-append-string pc res)
@@ -4685,7 +4685,7 @@
             ;;XXX Éô¼ó¹çÀ®ÊÑ´¹Ãæ¤Ï¸ò¤¼½ñ¤­ÊÑ´¹Åù¤Ï̵¸ú¤Ë¤¹¤ë
             ))
           ((procedure? res)
-           (res 'tutcode-state-interactive-bushu pc)))))))))
+           (res 'tutcode-state-interactive-bushu pc)))))))

 ;;; ÂÐÏÃŪÉô¼ó¹çÀ®ÊÑ´¹³«»Ï
 (define (tutcode-begin-interactive-bushu-conversion pc)