From 336a550a1e01ebbe216588d7097988ec98c48e57 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 25 Mar 2011 20:17:56 -0500
Subject: [PATCH] set the save-as menu shortcut to s and the prefix to shift

original commit: 3b4ba31d741d58e118e4b32c70bfd0f24cd2dd31
---
 collects/framework/private/standard-menus-items.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/standard-menus-items.rkt b/collects/framework/private/standard-menus-items.rkt
index 10b4bf55..bf067693 100644
--- a/collects/framework/private/standard-menus-items.rkt
+++ b/collects/framework/private/standard-menus-items.rkt
@@ -245,8 +245,8 @@
         (make-an-item 'file-menu 'save-as
                       '(string-constant save-as-info)
                       '(λ (item control) (void))
-                      #f
-                      '(get-default-shortcut-prefix)
+                      #\s
+                      '(cons 'shift (get-default-shortcut-prefix))
                       '(string-constant save-as-menu-item)
                       on-demand-do-nothing
                       #f)