comparison contrib/hgk @ 5393:c2ad1890fc53

hgk: add debug-config command to pass configuration options
author Patrick Mezard <pmezard@gmail.com>
date Fri, 05 Oct 2007 22:39:36 +0200
parents 66d7aabf5b41
children 0ad0e97345eb
comparison
equal deleted inserted replaced
5392:66d7aabf5b41 5393:c2ad1890fc53
3718 global stopped 3718 global stopped
3719 set stopped 100 3719 set stopped 100
3720 destroy . 3720 destroy .
3721 } 3721 }
3722 3722
3723 proc getconfig {} {
3724 global env
3725
3726 set lines [exec $env(HG) debug-config]
3727 regsub -all "\r\n" $lines "\n" config
3728 set config {}
3729 foreach line [split $lines "\n"] {
3730 regsub "^(k|v)=" $line "" line
3731 lappend config $line
3732 }
3733 return $config
3734 }
3735
3723 # defaults... 3736 # defaults...
3724 set datemode 0 3737 set datemode 0
3725 set boldnames 0 3738 set boldnames 0
3726 set diffopts "-U 5 -p" 3739 set diffopts "-U 5 -p"
3727 set wrcomcmd "\"\$HG\" --config ui.report_untrusted=false debug-diff-tree --stdin -p --pretty" 3740 set wrcomcmd "\"\$HG\" --config ui.report_untrusted=false debug-diff-tree --stdin -p --pretty"