From 255e6181d60693c512ccac1b4048cc1198269f26 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 5 Aug 2007 08:31:49 +0000 Subject: [PATCH] fixed bug in tabber so that tabifying a line that is already in the right place no longer modifies the buffer svn: r7023 --- collects/framework/private/scheme.ss | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index d1a1fb44bc..c8f4787d0c 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -517,11 +517,10 @@ (λ (amt) (let* ([pos-start end] [curr-offset (find-offset pos-start)]) - (unless (= amt (car curr-offset)) + (unless (= amt (- (cdr curr-offset) pos-start)) (delete pos-start (cdr curr-offset)) - (insert - (make-string amt #\space) - pos-start))))] + (insert (make-string amt #\space) + pos-start))))] [get-proc (λ () (let ([id-end (get-forward-sexp contains)]) @@ -540,9 +539,7 @@ (let* ([proc-name (get-proc)]) (or (eq? proc-name 'define) (eq? proc-name 'lambda))))] - [indent-first-arg - (λ (start) - (car (find-offset start)))]) + [indent-first-arg (λ (start) (car (find-offset start)))]) (when (and okay (not (char=? (get-character (sub1 end)) #\newline)))