From 768eb5b3098546206970f675fb66f94b4b18c6a7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 28 May 2003 22:03:00 +0000
Subject: [PATCH] ..

original commit: 726b2052ab64208d6ce2ca39399a821e57782b7c
---
 collects/framework/private/scheme.ss | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 0af641ad..18cc2360 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -371,6 +371,21 @@
                (scheme-paren:get-comments))))
           
           
+<<<<<<< scheme.ss
+          (rename [super-on-close on-close])
+          (define/override (on-close)
+            (remove-indents-callback)
+            (remove-paren-callback)
+            (super-on-close))
+          
+          (define remove-indents-callback
+            (preferences:add-callback
+             'framework:tabify
+             (lambda (p value)
+               (set! indents value))))
+          (define indents (preferences:get 'framework:tabify))
+=======
+>>>>>>> 1.40
           [define backward-cache (make-object match-cache:%)]
           [define forward-cache (make-object match-cache:%)]