From 3261add0399bca557647b00e3463afc04d1c4a16 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 29 Jan 2005 15:18:07 +0000
Subject: [PATCH] .

original commit: ec0006d641c1b9bcb9b2ba6cf886b99ec8dbef48
---
 collects/framework/private/keymap.ss | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index eeb6b807..d67efaa0 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -166,7 +166,13 @@
                     [(null? mods) null]
                     [(null? (cdr mods)) null]
                     [else (cons (car mods) (loop (cdr mods)))]))]
-	       [key (car (last-pair mods/key))]
+	       [key (apply string (car (last-pair mods/key)))]
+               [canon-key
+                (cond
+                  [(string=? key "enter") "return"]
+                  [(string=? key "del") "delete"]
+                  [(string=? key "ins") "insert"]
+                  [else key])]
 	       [shift (if neg? #f 'd/c)]
 	       [control (if neg? #f 'd/c)]
 	       [alt (if neg? #f 'd/c)]
@@ -191,6 +197,7 @@
 			  [(#\d) (set! command val)]
 			  [(#\m) (set! meta val)])))
 		    mods)
+          
 	  (join-strings ":"
 			(filter
 			 (lambda (x) x)
@@ -200,7 +207,7 @@
 			  (do-key #\d command)
 			  (do-key #\m meta)
 			  (do-key #\s shift)
-			  (apply string key))))))
+			  canon-key)))))
       
       ;; split-out : char (listof char) -> (listof (listof char))
       ;; splits a list of characters at its first argument