diff options
Diffstat (limited to 'generic/tclNotify.c')
| -rw-r--r-- | generic/tclNotify.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclNotify.c b/generic/tclNotify.c index 4d85b66..b58a347 100644 --- a/generic/tclNotify.c +++ b/generic/tclNotify.c @@ -8,11 +8,12 @@ * tcl*Notify.c files in each platform directory. * * Copyright (c) 1995-1997 Sun Microsystems, Inc. + * Copyright (c) 1998 by Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNotify.c,v 1.1.2.2 1998/09/24 23:58:59 stanton Exp $ + * RCS: @(#) $Id: tclNotify.c,v 1.1.2.3 1998/11/11 04:08:22 stanton Exp $ */ #include "tclInt.h" @@ -458,8 +459,11 @@ Tcl_DeleteEvents(proc, clientData) if (tsdPtr->firstEventPtr == evPtr) { tsdPtr->firstEventPtr = evPtr->nextPtr; if (evPtr->nextPtr == (Tcl_Event *) NULL) { - tsdPtr->lastEventPtr = (Tcl_Event *) NULL; + tsdPtr->lastEventPtr = prevPtr; } + if (tsdPtr->markerEventPtr == evPtr) { + tsdPtr->markerEventPtr = prevPtr; + } } else { prevPtr->nextPtr = evPtr->nextPtr; } |