From a22355a548a6d1a250e4a37d70d48f795972cb73 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 9 Apr 2004 03:10:11 +0000 Subject: [PATCH] . original commit: 2c041b83ac1f3826d470fd01823ed35d93e13706 --- collects/framework/private/text.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index d58859be..719b7de3 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -962,7 +962,7 @@ WARNING: printf is rebound in the body of the unit to always (= start end) (submit-to-port? key)) (let ([snips/chars (extract-snips/chars unread-start-point (last-position))]) - (printf "sending over ~s ~s\n" unread-start-point snips/chars) + (printf "sending over usp~s ~s\n" unread-start-point snips/chars) (for-each (lambda (s/c) (cond [(is-a? s/c snip%) @@ -974,9 +974,9 @@ WARNING: printf is rebound in the body of the unit to always (set! allow-tabify? #f) (super-on-local-char key) (set! allow-tabify? #t) - (channel-put read-chan (char->integer #\newline)) (set! unread-start-point (last-position)) (set! insertion-point (last-position)) + (printf "sent over; new usp ~s\n" unread-start-point) (on-submit))] [else (super-on-local-char key)]))) @@ -1238,7 +1238,7 @@ WARNING: printf is rebound in the body of the unit to always (define/private (extract-snips/chars start end) (split-snip start) (split-snip end) - (let loop ([snip (find-snip start 'after)]) + (let loop ([snip (find-snip start 'after-or-none)]) (cond [(not snip) null] [(< (get-snip-position snip) end)