From 41cac266d6c34e0a19dde1af7edfd39bf2c72cac Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 13 Nov 2006 23:17:13 +0000
Subject: [PATCH] removed a: as a meta-key mapping for os x

svn: r4844
---
 collects/framework/private/keymap.ss | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index ded3830871..1ecb5e68bc 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -265,13 +265,8 @@
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
       (define (make-meta-prefix-list key)
-	(let ([defaults
-		(list (string-append "m:" key)
-		      (string-append "ESC;" key))])
-	  (if (eq? (system-type) 'macosx)
-	      (cons (string-append "a:" key)
-		    defaults)
-	      defaults)))
+	(list (string-append "m:" key)
+              (string-append "ESC;" key)))
       
       (define send-map-function-meta
 	(λ (keymap key func)