From 7a85e942a2314822352d0a8aeeace56021e019f2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 15 Jan 2011 16:01:20 -0600 Subject: [PATCH] fixes the way alt-enter in the drracket repl works so that it doesn't insert whitespace into the submitted expression closes PR 11621 --- collects/framework/private/text.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index f3b48f1a7f..93fb8e7b24 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -2036,6 +2036,7 @@ (start . >= . unread-start-point)) (inner #t can-delete? start len))) + (inherit set-position) (define/override (on-local-char key) (let ([start (get-start-position)] [end (get-end-position)] @@ -2048,7 +2049,8 @@ [(and (insertion-point . <= . start) (= start end) (submit-to-port? key)) - (insert "\n") + (insert "\n" (last-position) (last-position)) + (set-position (last-position) (last-position)) (for-each/snips-chars unread-start-point (last-position)