Mercurial > hg
diff contrib/hgk @ 24514:d01c767d8753
hgk: remove no longer needed debug-config command
author | Andrew Shadura <andrew@shadura.me> |
---|---|
date | Sat, 28 Mar 2015 21:24:57 +0100 |
parents | b5a0b2374eb6 |
children | c1fe7111b6bb |
line wrap: on
line diff
--- a/contrib/hgk Sat Mar 28 20:05:01 2015 +0100 +++ b/contrib/hgk Sat Mar 28 21:24:57 2015 +0100 @@ -4051,13 +4051,15 @@ 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 + + set lines [exec $env(HG) debugconfig] + foreach line [split $lines \n] { + set line [string trimright $line \r] + if {[string match hgk.* $line]} { + regexp {(.*)=(.*)} $line - k v + lappend config $k $v + } } return $config } @@ -4121,8 +4123,9 @@ set stuffsaved 0 set patchnum 0 +set config(hgk.vdiff) "" array set config [getconfig] -set hgvdiff $config(vdiff) +set hgvdiff $config(hgk.vdiff) setcoords makewindow readrefs