From c5cf3fb05a43c7631dbf3e90f527cb95a55250cd Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 3 Aug 2007 06:59:26 +0000
Subject: [PATCH] hide control-alt keybindings under windows

svn: r7009

original commit: db9963ed69bad311ef1958159a7dbcb09493f376
---
 collects/framework/private/keymap.ss | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index a13b04eb..3562b0be 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -7,8 +7,7 @@
            (lib "match.ss")
            "../preferences.ss"
            "sig.ss")
-  
-  
+
   (import mred^
           [prefix finder: framework:finder^]
           [prefix handler: framework:handler^]
@@ -129,7 +128,14 @@
          function-table
          (λ (keyname fname)
            (unless (hash-table-get table keyname (λ () #f))
-             (hash-table-put! table keyname fname))))
+             (cond
+               [(and (eq? (system-type) 'windows)
+                     (or (regexp-match #rx"a:c" keyname)
+                         (regexp-match #rx"c:m" keyname)))
+                (void) ;; don't show these keybindigns -- they don't work
+                ]
+               [else
+                (hash-table-put! table keyname fname)]))))
         (for-each
          (λ (chained-keymap)
            (when (is-a? chained-keymap aug-keymap<%>)