Revision: 6575
Author: ek.kato
Date: Fri Jul 23 20:04:41 2010
Log: * scm/skk.scm
- (skk-ja-rk-rule) : New. Non consonant-keeping ja-rk-rule
for SKK.
- (skk-set-rule) : Use non consonant-keeping ja-rk-rule for
skk-input-rule-roma.
- (skk-context-new) : Ditto.
http://code.google.com/p/uim/source/detail?r=6575
Modified:
/trunk/scm/skk.scm
=======================================
--- /trunk/scm/skk.scm Fri Jul 23 00:59:01 2010
+++ /trunk/scm/skk.scm Fri Jul 23 20:04:41 2010
@@ -58,6 +58,7 @@
(define
skk-ddskk-like-heading-label-char-list '("a" "s" "d" "f" "j" "k" "l"))
(define
skk-uim-heading-label-char-list '("1" "2" "3" "4" "5" "6" "7" "8" "9" "0"))
+(define skk-ja-rk-rule (append ja-rk-rule-basic ja-rk-rule-additional))
(define skk-okuri-char-alist '())
(define skk-downcase-alist '())
(define skk-set-henkan-point-key '())
@@ -371,7 +372,7 @@
(set! skk-okuri-char-alist '())
(set! skk-downcase-alist '())
(set! skk-set-henkan-point-key '())
- ja-rk-rule)
+ skk-ja-rk-rule)
((= input-rule skk-input-rule-azik)
(require "japanese-azik.scm")
(set! skk-okuri-char-alist ja-azik-skk-okuri-char-alist)
@@ -457,7 +458,7 @@
(skk-lib-look-open skk-look-dict))
(skk-read-personal-dictionary)))
(let ((sc (skk-context-new-internal id im))
- (rkc (rk-context-new ja-rk-rule #t #f)))
+ (rkc (rk-context-new skk-ja-rk-rule #t #f)))
(skk-context-set-widgets! sc skk-widgets)
(skk-context-set-head! sc '())
(skk-context-set-rk-context! sc rkc)
