Revision: 7378
Author:   deton.kih
Date:     Thu Dec  1 03:04:28 2011
Log:      * scm/tutcode.scm
  - (tutcode-proc-state-yomi):
    Add kanji to sequence conversion on yomi.

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

Modified:
 /trunk/scm/tutcode.scm

=======================================
--- /trunk/scm/tutcode.scm      Thu Dec  1 03:00:28 2011
+++ /trunk/scm/tutcode.scm      Thu Dec  1 03:04:28 2011
@@ -4289,6 +4289,18 @@
                 (begin
                   (tutcode-flush pc)
                   (tutcode-begin-postfix-katakana-conversion pc #f))))
+            ;; ´Á»ú¢ªÆþÎÏ¥·¡¼¥±¥ó¥¹ÊÑ´¹¡£¼ç¤Ëclipboard¤«¤é¤Îpaste»þÍÑ
+            ((eq? res 'tutcode-postfix-kanji2seq-start)
+              (set! res #f)
+              (if (not (null? head))
+                (begin
+                  (tutcode-commit pc
+                    (string-list-concat
+                      (tutcode-kanji-list->sequence pc head)))
+                  (tutcode-flush pc))
+                (begin
+                  (tutcode-flush pc)
+                  (tutcode-begin-postfix-kanji2seq-conversion pc #f))))
             ((symbol? res)
               (set! res #f)))))
         (if res

Reply via email to