From 24cbaa0bc999c94f6e60db2399d2b5a1b9a5110a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Mar 2007 18:49:00 +0000 Subject: [PATCH] made control-up and control-down move thru the history in the REPL svn: r5824 --- collects/drscheme/private/rep.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index eff72a58c3..46d636885d 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -408,7 +408,9 @@ TODO (send text copy-next-previous-expr))) (keymap:send-map-function-meta keymap "p" "put-previous-sexp") - (keymap:send-map-function-meta keymap "n" "put-next-sexp"))) + (keymap:send-map-function-meta keymap "n" "put-next-sexp") + (send keymap map-function "c:up" "put-previous-sexp") + (send keymap map-function "c:down" "put-next-sexp"))) (define scheme-interaction-mode-keymap (make-object keymap:aug-keymap%)) (setup-scheme-interaction-mode-keymap scheme-interaction-mode-keymap)