From 737905864d3b61627d2cead060a43c937cf1dee4 Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Fri, 14 Sep 2007 14:53:59 +0000 Subject: [PATCH] For `open-input-graphical-file' and `text-editor-load-handler', specify the name of the file as the port's object-name rather than the text% object. svn: r7332 original commit: 470472620b9cae6165fcf0d7c28df5158f18ebb9 --- collects/mred/private/snipfile.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/snipfile.ss b/collects/mred/private/snipfile.ss index 12cba04f..e0968186 100644 --- a/collects/mred/private/snipfile.ss +++ b/collects/mred/private/snipfile.ss @@ -257,7 +257,7 @@ (let ([t (make-object text%)]) (send t insert-port p 'standard) (close-input-port p) - (open-input-text-editor t))] + (open-input-text-editor t 0 'end values filename))] [else p])]) (port-count-lines! p) ; in case it's new (values p filename))))