made control-up and control-down move thru the history in the REPL

svn: r5824
This commit is contained in:
Robby Findler 2007-03-25 18:49:00 +00:00
parent 4439c04f47
commit 24cbaa0bc9

View File

@ -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)