plain label strips parenthesized accelerators

svn: r983 original commit: 50a666ebd9cb9211a1cccb3c78a5ee5b22eb07ed
2005-10-05 16:22:57 +00:00 · 2005-10-05 16:22:57 +00:00 · cbf80b0bf7
commit cbf80b0bf7
parent 6c7daca1b1
1 changed files with 7 additions and 2 deletions
--- 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%