[uim-commit] r1056 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-28 21:03:50 -0700 (Thu, 28 Jul 2005)
New Revision: 1056

Modified:
   trunk/scm/m17nlib.scm
Log:
* scm/m17nlib.scm:
 -(m17nlib-push-key): Modifier should be appended not only for symbol
  key but also non-symbol key.


Modified: trunk/scm/m17nlib.scm
===================================================================
--- trunk/scm/m17nlib.scm	2005-07-29 03:53:37 UTC (rev 1055)
+++ trunk/scm/m17nlib.scm	2005-07-29 04:03:50 UTC (rev 1056)
@@ -257,11 +257,12 @@
        ((m17nlib-off-key? key key-state)
 	(m17nlib-context-set-on! mc #f)
 	#t) ;; #t means key event was consumed.
-       ((symbol? key)
-	(let ((mkey (m17nlib-translate-ukey-to-mkey key key-state)))
-	  (m17nlib-lib-push-symbol-key mid mkey)))
        (else
-	(m17nlib-lib-push-key mid key key-state))))))
+	(if (symbol? key)
+	    (let ((mkey (m17nlib-translate-ukey-to-mkey key key-state)))
+	      (m17nlib-lib-push-symbol-key mid mkey))
+	    (let ((mkey (m17nlib-append-modifiers key key-state (charcode->string key))))
+	      (m17nlib-lib-push-symbol-key mid mkey))))))))
 
 (define m17nlib-press-key-handler
   (lambda (mc key key-state)