followup fix that should probably have been in a7c6dfa05

original commit: 65334e6931ae6bd0d38f0f6b9b2d724aa02b1353
2013-12-03 09:44:02 -06:00 · 2013-12-03 09:44:02 -06:00 · 58301e4271
commit 58301e4271
parent 0957baea77
1 changed files with 2 additions and 1 deletions
--- a/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt
@ -172,7 +172,8 @@
        (cond
          [(eq? (system-type) 'windows)
           (cond
-             [(or (regexp-match? #rx"a:c" cs)
+             [(or (and (regexp-match? #rx"a:c" cs)
+                       (not (regexp-match? #rx"~a:c" cs)))
                  (and (regexp-match? #rx"c:m" cs)
                       (not (regexp-match? #rx"~c:m" cs))))
              #f]