[uim-commit] r333 - trunk/scm

[ekato@freedesktop.org]

Author: ekato
Date: 2005-01-19 04:50:53 -0800 (Wed, 19 Jan 2005)
New Revision: 333

Modified:
   trunk/scm/skk.scm
Log:
* scm/skk.scm (skk-proc-state-direct-no-preedit) : Do commit raw
  even for keys with shift modifier mask when they are not
  alphabet keys (e.g. "<Control><Shift>_").


Modified: trunk/scm/skk.scm
===================================================================
--- trunk/scm/skk.scm	2005-01-19 03:48:20 UTC (rev 332)
+++ trunk/scm/skk.scm	2005-01-19 12:50:53 UTC (rev 333)
@@ -791,7 +791,9 @@
       (skk-commit-raw sc key key-state)
       #f)
      ((and (modifier-key-mask key-state)
-	   (not (shift-key-mask key-state)))
+	   (not (and
+	         (shift-key-mask key-state)
+		 (alphabet-char? key))))
       (skk-commit-raw sc key key-state)
       #f)
      (else
@@ -902,8 +904,10 @@
        ;; bad strategy. see bug #528
        ;; "<Control>a", "<Alt> ", "<Meta>b" and so on
        (if (and
-	     (modifier-key-mask key-state)
-	     (not (shift-key-mask key-state)))
+	    (modifier-key-mask key-state)
+	    (not (and
+		  (shift-key-mask key-state)
+		  (alphabet-char? key))))
 	   (begin
 	     (skk-flush sc)
 	     (skk-commit-raw-with-preedit-update sc key key-state)