gitk: Replace SHA1 entry field on keyboard paste

diff --git a/gitk b/gitk
index 90764e8948f1f95aaddfb381664ecede328bc863..2f58bcfbdda4deccec8d1750f38fff2c27ab109a 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -2585,6 +2585,7 @@ proc makewindow {} {
     bind $fstring <Key-Return> {dofind 1 1}
     bind $sha1entry <Key-Return> {gotocommit; break}
     bind $sha1entry <<PasteSelection>> clearsha1
+    bind $sha1entry <<Paste>> clearsha1
     bind $cflist <1> {sel_flist %W %x %y; break}
     bind $cflist <B1-Motion> {sel_flist %W %x %y; break}
     bind $cflist <ButtonRelease-1> {treeclick %W %x %y}