From 8cc64d65014f54aac492664505a0c6184d48cd2b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 13 Sep 2008 15:07:48 +0000 Subject: [PATCH] alt-return and control-return now insert returns svn: r11724 original commit: bd7cf63ed0ba36236370b5b704d3373947f4113f --- collects/framework/private/frame.ss | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index a7dea8f1..99dc0a43 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1933,6 +1933,12 @@ (λ (text evt) (send (send text get-top-level-window) search 'forward))) +(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" + (λ (text evt) + (send text insert "\n"))) + (send search/replace-keymap map-function "esc" "hide-search") (send search/replace-keymap add-function "hide-search" (λ (text evt)