[uim-commit] r2134 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-11-13 21:45:55 -0800 (Sun, 13 Nov 2005)
New Revision: 2134

Modified:
   trunk/scm/skk.scm
Log:
* scm/skk.scm (skk-proc-state-completion) : Reset dcomp-word with
  skk-cancel-key?


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2005-11-14 04:30:29 UTC (rev 2133)
+++ trunk/scm/skk.scm	2005-11-14 05:45:55 UTC (rev 2134)
@@ -1728,6 +1728,8 @@
 	     (skk-lib-clear-completions
 	       (skk-make-string (skk-context-head sc) skk-type-hiragana))
 	     (skk-context-set-state! sc 'skk-state-kanji)
+	     (if skk-dcomp-activate?
+		 (skk-context-set-dcomp-word! sc ""))
 	     #f)
 	   #t)
        (let ((sl (string-to-list (skk-get-current-completion sc))))