Revision: 6572
Author: deton.kih
Date: Fri Jul 23 13:40:47 2010
Log: * scm/tutcode.scm
- (tutcode-custom-set-mazegaki/bushu-start-sequence!):
Fix error when tutcode-XXX-start-sequence is empty.
http://code.google.com/p/uim/source/detail?r=6572
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Tue Jul 20 04:23:15 2010
+++ /trunk/scm/tutcode.scm Fri Jul 23 13:40:47 2010
@@ -2019,7 +2019,7 @@
;;;
tutcode-key-custom¤ÇÀßÄꤵ¤ì¤¿¸ò¤¼½ñ¤/Éô¼ó¹çÀ®ÊÑ´¹³«»Ï¤Î¥¡¼¥·¡¼¥±¥ó¥¹¤ò
;;; ¥³¡¼¥Éɽ¤ËÈ¿±Ç¤¹¤ë
(define (tutcode-custom-set-mazegaki/bushu-start-sequence!)
- (let
+ (let*
((make-subrule
(lambda (keyseq cmd)
(if
@@ -2027,16 +2027,23 @@
keyseq
(> (string-length keyseq) 0))
(let ((keys (reverse (string-to-list keyseq))))
- (list (list keys) cmd))
- #f))))
- (tutcode-rule-set-sequences!
- (list
- (make-subrule tutcode-mazegaki-start-sequence
- '(tutcode-mazegaki-start))
- (make-subrule tutcode-latin-conv-start-sequence
- '(tutcode-latin-conv-start))
- (make-subrule tutcode-bushu-start-sequence
- '(tutcode-bushu-start))))))
+ (list (list (list keys) cmd)))
+ #f)))
+ (mazegaki-rule
+ (make-subrule tutcode-mazegaki-start-sequence
+ '(tutcode-mazegaki-start)))
+ (latin-conv-rule
+ (make-subrule tutcode-latin-conv-start-sequence
+ '(tutcode-latin-conv-start)))
+ (bushu-rule
+ (make-subrule tutcode-bushu-start-sequence
+ '(tutcode-bushu-start))))
+ (if mazegaki-rule
+ (tutcode-rule-set-sequences! mazegaki-rule))
+ (if latin-conv-rule
+ (tutcode-rule-set-sequences! latin-conv-rule))
+ (if bushu-rule
+ (tutcode-rule-set-sequences! bushu-rule))))
;;; ¥³¡¼¥Éɽ¤Î°ìÉô¤ÎÄêµÁ¤ò¾å½ñ¤Êѹ¹/Äɲ乤롣~/.uim¤«¤é¤Î»ÈÍѤòÁÛÄê¡£
;;; ¸Æ¤Ó½Ð¤·»þ¤Ë¤Ïtutcode-rule-userconfig¤ËÅÐÏ¿¤·¤Æ¤ª¤¯¤À¤±¤Ç¡¢
