Merge branch 'cb/maint-unpack-trees-absense' into maint

diff --git a/git-gui/lib/search.tcl b/git-gui/lib/search.tcl
index 32c8656fc9b15498073a09e516777f71827dc3b1..b371e9a30a00fda0ced979c03a1a5d7856654baa 100644 (file)
--- a/git-gui/lib/search.tcl
+++ b/git-gui/lib/search.tcl
@@ -35,7 +35,7 @@ constructor new {i_w i_text args} {
 
        trace add variable searchstring write [cb _incrsearch_cb]
        
-       bind $w <Destroy> [cb delete_this]
+       bind $w <Destroy> [list delete_this $this]
        return $this
 }