Added a time wrapper around updatecommits

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/gitk b/gitk
index db5ec54be879e3ad194c2718468a499882c75733..d701d4b4a47de03b13e5e12ee68f78c7d7fa8f9d 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -445,6 +445,11 @@ proc getcommits {selid} {
 }
 
 proc updatecommits {} {
+    set t [time {updatecommits_real} 1]
+    puts "$t"
+}
+
+proc updatecommits_real {} {
     global curview vcanopt vorigargs vfilelimit viewinstances
     global viewactive viewcomplete tclencoding
     global startmsecs showneartags showlocalchanges
@@ -11339,6 +11344,7 @@ if {[info exists permviews]} {
 
 if {[tk windowingsystem] eq "win32"} {
     focus -force .
+    bind . <Control-F2> {console show}
 }
 
 getcommits {}