diff -r 66d7aabf5b41 -r c2ad1890fc53 contrib/hgk
--- a/contrib/hgk	Tue Oct 02 23:28:02 2007 +0200
+++ b/contrib/hgk	Fri Oct 05 22:39:36 2007 +0200
@@ -3720,6 +3720,19 @@
     destroy .
 }
 
+proc getconfig {} {
+    global env
+
+    set lines [exec $env(HG) debug-config]
+    regsub -all "\r\n" $lines "\n" config
+    set config {}
+    foreach line [split $lines "\n"] {
+	regsub "^(k|v)=" $line "" line
+	lappend config $line
+    }
+    return $config
+}
+
 # defaults...
 set datemode 0
 set boldnames 0