From d2b1efd7d07a14f951a5f86f640dd5cef59f2e90 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 10 Feb 1999 01:56:54 +0000
Subject: [PATCH] .

original commit: 802cad7a18b8f0708389a5874b33f89bc1c3ffb7
---
 src/mred/wrap/mred.ss | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 70b0e7ee..d0b5e657 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3750,6 +3750,15 @@
     get-shortcut set-shortcut
     get-x-shortcut-prefix set-x-shortcut-prefix))
 
+(define (char-name c)
+  (case c
+    [(#\return) (if (eq? (system-type) 'macos) "Return" "Enter")]
+    [(#\tab) "Tab"]
+    [(#\space) "Space"]
+    [(#\backspace) "Backspace"]
+    [(#\rubout) "Delete"]
+    [else c]))
+
 (define basic-selectable-menu-item%
   (class* basic-labelled-menu-item% (selectable-menu-item<%>) (label checkable? menu callback shortcut help-string set-wx)
     (rename [super-restore restore] [super-set-label set-label]
@@ -3774,9 +3783,12 @@
 								[(alt) "Alt+"]
 								[(ctl-m) "Ctl+M "]
 								[(ctl) "Ctl+"])
-							      (char-upcase shortcut))]
-					      [(windows) (format "~aCtl+~a" #\tab (char-upcase shortcut))]
-					      [(macos) (format "~aCmd+~a" #\tab (char-upcase shortcut))]))
+							      (char-name
+							       (char-upcase shortcut)))]
+					      [(windows) (format "~aCtl+~a" #\tab 
+								 (char-name (char-upcase shortcut)))]
+					      [(macos) (format "~aCmd+~a" #\tab 
+							       (char-name (char-upcase shortcut)))]))
 					   (strip-tab label))]
 			    [key-binding (and shortcut
 					      (case (system-type)
@@ -3786,9 +3798,9 @@
 								  [(alt) "a:"]
 								  [(ctl-m) "c:m;"]
 								  [(ctl) "c:"])
-								(char-downcase shortcut))]
-						[(windows) (format "c:~a" (char-downcase shortcut))]
-						[(macos) (format "d:~a" (char-downcase shortcut))]))]
+								(char-name (char-downcase shortcut)))]
+						[(windows) (format "c:~a" (char-name (char-downcase shortcut)))]
+						[(macos) (format "d:~a" (char-name (char-downcase shortcut)))]))]
 			    [keymap (and key-binding
 					 (let ([keymap (make-object wx:keymap%)])
 					   (send keymap add-key-function "menu-item"