Merge branch 'maint'
[gitweb.git] / git-gui.sh
index 5dc2c675a92b65598a02a74b4a27ba3db1f4f86f..264d9ff042d2250b98800ecdf77e33ebe2b8bde3 100755 (executable)
@@ -1636,7 +1636,7 @@ unset browser doc_path doc_url
 
 # -- Standard bindings
 #
-bind .   <Destroy> do_quit
+bind .   <Destroy> {if {{%W} eq {.}} do_quit}
 bind all <$M1B-Key-q> do_quit
 bind all <$M1B-Key-Q> do_quit
 bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}