From 425227136bdc13b826d68a191ee90c9c00ea76d6 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 8 Jul 1996 13:05:21 +0000
Subject: [PATCH] got rid of edits%

original commit: ef77b315668903e702171df65cf70eff1faf23de
---
 collects/mred/edit.ss | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index ad11f972..28267110 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -148,23 +148,6 @@
 	  (sequence
 	    (apply super-init args)))))
 
-    (define edits%
-      (class-asi wx:snip%
-	(private
-	  [edits null])
-	(public
-	  [add
-	   (lambda (edit)
-	     (unless (let loop ([e edits])
-		       (cond
-			 [(null? e) #f]
-			 [else (if (eq? this (car e))
-				   #t
-				   (loop (cdr e)))]))
-	       (set! edits (cons edit edits))))])))
-
-    (define edits (make-object edits%))
-
     (define make-edit%
       (lambda (super%)
 	(class (make-std-buffer% super%) args
@@ -403,7 +386,6 @@
 			   range-rectangles)))])
 	  (sequence
 	    (apply super-init args)
-	    (send edits add this)
 	    (let ([keymap (get-keymap)])
 	      (mred:keymap:set-keymap-error-handler keymap)
 	      (mred:keymap:set-keymap-implied-shifts keymap)