[uim-commit] r1990 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-11-04 20:33:32 -0800 (Fri, 04 Nov 2005)
New Revision: 1990

Modified:
   trunk/scm/skk.scm
Log:
* scm/skk.scm : Fix a bug in completion using latin-conv and
  Setsubi-ji.  Thanks to (key/clefs) for reporting this.
(skk-proc-state-kanji) : Using proper list for Settou-ji.
(skk-string-list-to-context-head) : Check latin-conv state and
  Setsubi-ji.
(skk-proc-state-converting) : Use proper list for Setsubi-ji.


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2005-11-04 17:54:16 UTC (rev 1989)
+++ trunk/scm/skk.scm	2005-11-05 04:33:32 UTC (rev 1990)
@@ -1225,7 +1225,7 @@
        (if (skk-special-midashi-key? key key-state)
 	   (begin
 	     (skk-append-residual-kana sc)
-	     (skk-append-string sc '(">"))
+	     (skk-append-string sc '(">" ">" ">"))
 	     (skk-begin-conversion sc)
 	     #f)
 	   #t)
@@ -1586,7 +1586,14 @@
 	(begin
 	  (skk-append-list-to-context-head
 	   sc
-	   (find-kana-list-from-rule ja-rk-rule-basic (car sl)))
+	   (if (or
+	        (skk-context-latin-conv sc)
+		;; handle Setsubi-ji
+		(and
+		 (null? (cdr sl))
+		 (string=? ">" (car sl))))
+	       (list (car sl) (car sl) (car sl))
+	       (find-kana-list-from-rule ja-rk-rule-basic (car sl))))
 	  (skk-string-list-to-context-head sc (cdr sl)))
 	#f)))
 
@@ -1703,7 +1710,7 @@
 	 (if (skk-special-midashi-key? key key-state)
 	     (begin
 	       (skk-context-set-state! sc 'skk-state-kanji)
-	       (skk-append-string sc '(">"))
+	       (skk-append-string sc '(">" ">" ">"))
 	       (set! res #f))
 	     (set! res (skk-proc-state-direct c key key-state)))))
       res)))