[uim-commit] r345 - trunk/scm

[ekato@freedesktop.org]

Author: ekato
Date: 2005-01-21 00:51:11 -0800 (Fri, 21 Jan 2005)
New Revision: 345

Modified:
   trunk/scm/skk.scm
Log:
* scm/skk.scm (skk-commit-editor-context) : Add appendix character to
  the string.


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2005-01-21 08:27:29 UTC (rev 344)
+++ trunk/scm/skk.scm	2005-01-21 08:51:11 UTC (rev 345)
@@ -754,9 +754,11 @@
     (let* ((psc (skk-context-parent-context sc))
 	   (okuri (skk-make-string (skk-context-okuri sc)
 				   (skk-context-kana-mode sc)))
+	   (appendix (skk-make-string (skk-context-appendix sc)
+				   (skk-context-kana-mode sc)))
 	   (str (if (not (null? psc))
 		    str
-		    (string-append str okuri))))
+		    (string-append (string-append str okuri) appendix))))
       (skk-flush sc)
       (skk-context-set-child-context! sc #f)
       (skk-commit sc str))))