--- a/contrib/hgk	Mon Oct 24 14:54:34 2005 -0700
+++ b/contrib/hgk	Mon Oct 24 14:54:48 2005 -0700
@@ -465,6 +465,7 @@
     bindkey ? findprev
     bindkey f nextfile
     bind . <Control-q> doquit
+    bind . <Control-w> doquit
     bind . <Control-f> dofind
     bind . <Control-g> {findnext 0}
     bind . <Control-r> findprev