From 9807b5fb4037802aaf9ef50db8bec3f056224b0e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 27 Nov 2004 21:31:16 +0000 Subject: [PATCH] . original commit: 4c206ee2d3fceb3b5f4fffe12f9d3f74d0c80d0f --- collects/drscheme/private/syntax-browser.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/syntax-browser.ss b/collects/drscheme/private/syntax-browser.ss index 451e147b..4150f64f 100644 --- a/collects/drscheme/private/syntax-browser.ss +++ b/collects/drscheme/private/syntax-browser.ss @@ -495,8 +495,8 @@ needed to really make this work: (define (make-text-port text) (make-output-port #f always-evt - (lambda (s start end flush?) - (send text insert (substring s start end) + (lambda (s start end flush? breaks?) + (send text insert (bytes->string/utf-8 (subbytes s start end)) (send text last-position) (send text last-position)) (- end start))