From 84d781aabb617363b0fcd9967ec79b7f7c3c9004 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 8 Aug 2008 10:41:53 +0000 Subject: [PATCH] fix ignoring auto-inserted text svn: r11140 --- collects/drscheme/private/unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 120090b690..34d48d0645 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -729,7 +729,7 @@ module browser threading seems wrong. (/ (+ yl yr) 2))))) (define/public (still-untouched?) - (and (= (last-position) 0) + (and (or (= (last-position) 0) (not really-modified?)) (not (is-modified?)) (not (get-filename)))) ;; inserts the auto-text if any, and executes the text if so