From 99a1193d0e3c2e794552e2218202f038edab83f3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 2 May 2000 19:03:08 +0000 Subject: [PATCH] . original commit: 80b5185a52899ee762536713130b9acde6e276dc --- collects/framework/scheme.ss | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss index 5dc6e663..45eb216b 100644 --- a/collects/framework/scheme.ss +++ b/collects/framework/scheme.ss @@ -480,12 +480,11 @@ (insert #\newline (paragraph-start-position para))) (cond [(let ([real-start (cdr (find-offset end))]) - (if (and (<= (+ 3 real-start) (last-position)) - (string=? ";;;" - (get-text real-start (+ 3 real-start)))) - real-start - #f)) - => (lambda (x) (set-position x))] + (and (<= (+ 3 real-start) (last-position)) + (string=? ";;" + (get-text real-start + (+ 2 real-start))))) + (void)] [(= para 0) (do-indent 0)] [(not contains) (do-indent 0)]