From 17ccfaf87b31d1e09ada4959ca1c688ab3061489 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 12 Mar 1998 18:04:31 +0000
Subject: [PATCH] fucked up!

original commit: 9f1f24d036d2442ad364d9ea82b478b94299ffc1
---
 collects/mred/edit.ss | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index a6703d2a..45d89302 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -132,7 +132,7 @@
 	  [edit-sequence-queue null]
 	  [edit-sequence-ht (make-hash-table)])
 	(public
-	  [edit-sequence-counter 0]
+	  [local-edit-sequence? #f]
 	  [run-after-edit-sequence
 	   (rec run-after-edit-sequence
 		(case-lambda 
@@ -164,16 +164,10 @@
 	  [on-edit-sequence
 	   (lambda ()
 	     (super-on-edit-sequence)
-	     (set! edit-sequence-counter (+ edit-sequence-counter 1)))]
+	     (set! local-edit-sequence? #t))]
 	  [after-edit-sequence
 	   (lambda ()
-	     (set! edit-sequence-counter (- edit-sequence-counter 1))
-	     (mred:debug:printf 'lock-icon
-				"after edit sequence (count: ~a)"
-				edit-sequence-counter)
-	     (when (< edit-sequence-counter 0)
-	       (error 'after-edit-sequence
-		      "extra call to after-edit-sequence"))
+	     (set! local-edit-sequence? #f)
 	     (super-after-edit-sequence)
 	     (let ([queue edit-sequence-queue]
 		   [ht edit-sequence-ht]