Tcl Source Code

Artifact f39f805d9e18ebc9d96eb30c19f41ab345da4231:

Attachment "673714.patch" to ticket [673714ffff] added by kennykb 2003-02-02 05:12:40.

---

Index: generic/tclNotify.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclNotify.c,v
retrieving revision 1.10
diff -u -r1.10 tclNotify.c
--- generic/tclNotify.c	17 Dec 2002 21:35:56 -0000	1.10
+++ generic/tclNotify.c	1 Feb 2003 21:56:08 -0000
@@ -509,14 +509,14 @@
         if ((*proc) (evPtr, clientData) == 1) {
             if (tsdPtr->firstEventPtr == evPtr) {
                 tsdPtr->firstEventPtr = evPtr->nextPtr;
-                if (evPtr->nextPtr == (Tcl_Event *) NULL) {
-                    tsdPtr->lastEventPtr = prevPtr;
-                }
-		if (tsdPtr->markerEventPtr == evPtr) {
-		    tsdPtr->markerEventPtr = prevPtr;
-		}
             } else {
                 prevPtr->nextPtr = evPtr->nextPtr;
+            }
+            if (evPtr->nextPtr == (Tcl_Event *) NULL) {
+                tsdPtr->lastEventPtr = prevPtr;
+            }
+            if (tsdPtr->markerEventPtr == evPtr) {
+                tsdPtr->markerEventPtr = prevPtr;
             }
             hold = evPtr;
             evPtr = evPtr->nextPtr;