Recognize GDK_MOD1_ as the char-bit:meta.

diff --git a/src/gtk/keys.scm b/src/gtk/keys.scm
index 4beeddc576df840d8a2a2bfa210a73843be703c9..c1d460687257dccbe6a0d8c12ac0afcdaf0975df 100644 (file)
--- a/src/gtk/keys.scm
+++ b/src/gtk/keys.scm
@@ -32,8 +32,10 @@ USA.
    (fix:+
     (if (bit? modifier-state (C-enum "GDK_META_MASK")) char-bit:meta 0)
     (fix:+
-     (if (bit? modifier-state (C-enum "GDK_SUPER_MASK")) char-bit:super 0)
-     (if (bit? modifier-state (C-enum "GDK_HYPER_MASK")) char-bit:hyper 0)))))
+     (if (bit? modifier-state (C-enum "GDK_MOD1_MASK")) char-bit:meta 0)
+     (fix:+
+      (if (bit? modifier-state (C-enum "GDK_SUPER_MASK")) char-bit:super 0)
+      (if (bit? modifier-state (C-enum "GDK_HYPER_MASK")) char-bit:hyper 0))))))
 
 (define (gdk-keyval->name keyval)
   (let ((entry