From 502f1f20475a15115278f37e0aa311d4fb87fc48 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Wed, 15 Aug 2007 01:07:46 +0000 Subject: [PATCH] svn: r7102 --- collects/profj/tool.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss index ad52f8d0e7..bbae30c1ae 100644 --- a/collects/profj/tool.ss +++ b/collects/profj/tool.ss @@ -148,7 +148,10 @@ [(not previous-line) (+ base-offset single-tab-stop)] [else (let* ([last-line-start (skip-whitespace previous-line 'forward #f)] - [last-line-indent (sub1 (- last-line-start previous-line))] + [last-line-indent + (sub1 (if (> last-line-start start-pos) + (- start-pos previous-line) + (- last-line-start previous-line)))] [old-open (get-sexp-start last-line-start)]) (cond [(not old-open) last-line-indent]