Revision: 7285
Author: nogu.dev
Date: Fri Sep 9 20:38:59 2011
Log: * scm/japanese.scm
- (ja-rk-rule-update): Don't set ja-rk-rule-basic
when ja-rk-rule-type is 'uim.
http://code.google.com/p/uim/source/detail?r=7285
Modified:
/trunk/scm/japanese.scm
=======================================
--- /trunk/scm/japanese.scm Fri Sep 9 19:58:06 2011
+++ /trunk/scm/japanese.scm Fri Sep 9 20:38:59 2011
@@ -395,8 +395,10 @@
(define ja-rk-rule-update
(lambda ()
- (set! ja-rk-rule-basic
- (ja-rk-rule-table->rule ja-rk-rule-table-basic))
+ (and
+ (eq? ja-rk-rule-type 'custom)
+ (set! ja-rk-rule-basic
+ (ja-rk-rule-table->rule ja-rk-rule-table-basic)))
(if ja-rk-rule-keep-consonant?
(set! ja-rk-rule (append ja-rk-rule-consonant-to-keep
ja-rk-rule-basic
