From 3747978c1e8d5d3fa4fcd8ba5a91a5618af9c97a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Nov 2010 07:03:51 -0700 Subject: [PATCH] cocoa: fix ctl-\ key event --- collects/mred/private/wx/cocoa/window.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/cocoa/window.rkt b/collects/mred/private/wx/cocoa/window.rkt index b4daaa9740..ef9bebe3f1 100644 --- a/collects/mred/private/wx/cocoa/window.rkt +++ b/collects/mred/private/wx/cocoa/window.rkt @@ -248,7 +248,7 @@ #\nul (let ([c (string-ref str 0)]) (or (and control? - (char<=? #\u00 c #\u1a) + (char<=? #\u00 c #\u1F) (let ([alt-str (tell #:type _NSString event charactersIgnoringModifiers)]) (and (string? alt-str) (= 1 (string-length alt-str))