From a87d563e658ebecee89b1b71508d28d6bf7245ff Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 3 Aug 2007 07:50:21 +0000 Subject: [PATCH] bugfix svn: r7011 original commit: 81136382a0200191360e72c36d28499c42dfcfea --- collects/framework/private/keymap.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index bd8e0674..3e8ec6b9 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -130,8 +130,9 @@ (unless (hash-table-get table keyname (λ () #f)) (cond [(and (eq? (system-type) 'windows) - (or (regexp-match #rx"a:c" (format "~a" keyname)) - (regexp-match #rx"c:m" (format "~a" keyname)))) + (let ([cs (canonicalize-keybinding-string (format "~a" keyname))]) + (or (regexp-match #rx"a:c" cs) + (regexp-match #rx"c:m" cs)))) (void) ;; don't show these keybindigns -- they don't work ] [else @@ -226,7 +227,7 @@ (join-strings ":" (filter - (λ (x) x) + values (list (do-key #\a alt) (do-key #\c control)