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