From e992a7f2b1ccc02e16cd0acf2d9587182b9910e4 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Fri, 21 Oct 2011 11:12:36 -0400
Subject: [PATCH] Fix the old-style keybinding example. (cherry picked from
 commit d8d79d22b2112afe583938bf7287d6b221bb9eda)

---
 collects/scribblings/drracket/keybindings.scrbl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/collects/scribblings/drracket/keybindings.scrbl b/collects/scribblings/drracket/keybindings.scrbl
index c0aaf1c18a..33d616707e 100644
--- a/collects/scribblings/drracket/keybindings.scrbl
+++ b/collects/scribblings/drracket/keybindings.scrbl
@@ -239,13 +239,17 @@ before version 5.2.
 @racketmod[
 s-exp framework/keybinding-lang
 
+(define modifiers
+  (apply string-append
+         (map (λ (p)
+                (case p
+                  [(ctl) "c:"] [(cmd) "d:"] [(alt meta) "m:"]
+                  [(shift) "s:"] [(option) "a:"]))
+              (get-default-shortcut-prefix))))
+
 (define-syntax-rule (frame-key key command)
   (keybinding
-   (format "~a:~a"
-           (case (get-default-shortcut-prefix)
-             [(ctl) "c"] [(cmd) "d"] [(alt meta) "m"]
-             [(shift) "s"] [(option) "a"])
-           key)
+   (string-append modifiers key)
    (λ (ed evt)
      (when (is-a? ed text:basic<%>)
        (define fr (send ed get-top-level-window))