From cbf80b0bf718f78b3b79f6280ad582a3347eaac1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 Oct 2005 16:22:57 +0000
Subject: [PATCH] plain label strips parenthesized accelerators

svn: r983

original commit: 50a666ebd9cb9211a1cccb3c78a5ee5b22eb07ed
---
 collects/mred/private/mrmenu.ss | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/mrmenu.ss b/collects/mred/private/mrmenu.ss
index 27a765f7..d271f2f0 100644
--- a/collects/mred/private/mrmenu.ss
+++ b/collects/mred/private/mrmenu.ss
@@ -70,8 +70,13 @@
 	(lambda (s) 
 	  (car (regexp-match #rx"^[^\t]*" s)))
 	(lambda (s) 
-	  (regexp-replace* "&"
-			   (regexp-replace* "&(.)" (car (regexp-match #rx"^[^\t]*" s)) "\\1")
+	  (regexp-replace* #rx"&"
+			   (regexp-replace* #rx"&(.)" 
+					    (regexp-replace*
+					     #rx" *[(]&.[)] *"
+					     (car (regexp-match #rx"^[^\t]*" s))
+					     "")
+					    "\\1")
 			   "\\&\\&"))))
 
   (define basic-labelled-menu-item%