From aa9cc758fc30805feba0630211c71137998449dd Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 30 Jun 2008 07:42:17 +0000 Subject: [PATCH] go back to using insert-before no-user-evaluation-message and related changes svn: r10515 --- collects/drscheme/private/rep.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index 173beb87bb..90af1ebabd 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -897,11 +897,11 @@ TODO (let ([locked? (is-locked?)]) (when locked? (lock #f)) (begin-edit-sequence) - (let ([start (last-position)]) - (insert message start) - (let ([end (last-position)]) + (let ([start (get-unread-start-point)]) + (insert-before message) + (let ([end (get-unread-start-point)]) (change-style warning-style-delta start end) - (insert "\n" end))) + (insert-before "\n"))) (end-edit-sequence) (when locked? (lock #t)))) @@ -958,6 +958,7 @@ TODO (when (equal? ans 3) (set-custodian-limit new-limit) (preferences:set 'drscheme:limit-memory new-limit)) + (set-insertion-point (last-position)) (insert-warning "\n[Interactions disabled]"))) (define/private (cleanup-interaction) ; =Kernel=, =Handler=