equal
deleted
inserted
replaced
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" |