fix ignoring auto-inserted text

svn: r11140
2008-08-08 10:41:53 +00:00 · 2008-08-08 10:41:53 +00:00 · 84d781aabb
commit 84d781aabb
parent 8cf5b465c1
1 changed files with 1 additions and 1 deletions
--- 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