From 811f24c9b13eab0f6cd9d000d189acd24cecfef3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 29 Sep 2008 13:51:42 +0000
Subject: [PATCH] added shift-return to go backwards

svn: r11901

original commit: 0ad2b06c66f48d1589834ed2b0b2467300b94dd1
---
 collects/framework/private/frame.ss | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 99dc0a43..6e1a6113 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1933,6 +1933,11 @@
       (λ (text evt)
         (send (send text get-top-level-window) search 'forward)))
 
+(send search/replace-keymap map-function "s:return" "prev")
+(send search/replace-keymap add-function "prev"
+      (λ (text evt)
+        (send (send text get-top-level-window) search 'backward)))
+
 (send search/replace-keymap map-function "c:return" "insert-return")
 (send search/replace-keymap map-function "a:return" "insert-return")
 (send search/replace-keymap add-function "insert-return"