From c81e5e79a0f2f5c2ac1896fa51cbe47e2e2a8d97 Mon Sep 17 00:00:00 2001 From: Bram Moolenaar Date: Sat, 5 May 2007 18:24:42 +0000 Subject: updated for version 7.1a --- src/if_tcl.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/if_tcl.c') diff --git a/src/if_tcl.c b/src/if_tcl.c index fe43d23ce..4b089ce5d 100644 --- a/src/if_tcl.c +++ b/src/if_tcl.c @@ -1564,7 +1564,9 @@ tclsetdelcmd(interp, reflist, vimobj, delcmd) if (reflist->interp == interp && reflist->vimobj == vimobj) { if (reflist->delcmd) + { Tcl_DecrRefCount(reflist->delcmd); + } Tcl_IncrRefCount(delcmd); reflist->delcmd = delcmd; return TCL_OK; -- cgit v1.2.1