[uim-commit] r762 - branches/composer/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-03-07 01:42:48 -0800 (Mon, 07 Mar 2005)
New Revision: 762

Modified:
   branches/composer/scm/anthy-custom.scm
   branches/composer/scm/anthy.scm
Log:
* scm/anthy-custom.scm
  - (custom anthy-commit-transposed-preedit-immediately?): New custom
    variable
* scm/anthy.scm
  - (anthy-input-state-with-preedit-action): Make transpose operation
    configurable as immediate commit or transposition only in
    accordance with the custom variable


Modified: branches/composer/scm/anthy-custom.scm
===================================================================
--- branches/composer/scm/anthy-custom.scm	2005-03-07 09:32:25 UTC (rev 761)
+++ branches/composer/scm/anthy-custom.scm	2005-03-07 09:42:48 UTC (rev 762)
@@ -40,6 +40,12 @@
                      (ugettext anthy-im-short-desc))
 
 
+(define-custom 'anthy-commit-transposed-preedit-immediately? #f
+  '(anthy)
+  '(boolean)
+  (_ "Immediately commit after preedit transposition (character set conversion)")
+  (_ "long description will be here."))
+
 ;;
 ;; segment separator
 ;;

Modified: branches/composer/scm/anthy.scm
===================================================================
--- branches/composer/scm/anthy.scm	2005-03-07 09:32:25 UTC (rev 761)
+++ branches/composer/scm/anthy.scm	2005-03-07 09:42:48 UTC (rev 762)
@@ -1046,7 +1046,7 @@
   (lambda (ac act-id)
     (let ((preconv-ustr (anthy-context-preconv-ustr ac))
 	  (kana (anthy-context-kana-mode ac))
-	  (transpose (if #t
+	  (transpose (if anthy-commit-transposed-preedit-immediately?
 			 anthy-commit-transposed-preconv!
 			 anthy-transpose-preconv!))) ;; does not commit
       (case act-id