equal
deleted
inserted
replaced
340 $comname $comdate $comment $rev $branch] |
340 $comname $comdate $comment $rev $branch] |
341 } |
341 } |
342 |
342 |
343 proc readrefs {} { |
343 proc readrefs {} { |
344 global tagids idtags headids idheads tagcontents env curid |
344 global tagids idtags headids idheads tagcontents env curid |
345 |
345 |
346 set curid [exec $env(HG) --config ui.report_untrusted=false id] |
346 set curid [exec $env(HG) --config ui.report_untrusted=false id] |
347 regexp -- {[[:xdigit:]]+} $curid curid |
347 regexp -- {[[:xdigit:]]+} $curid curid |
348 |
348 |
349 set tags [exec $env(HG) --config ui.report_untrusted=false tags] |
349 set tags [exec $env(HG) --config ui.report_untrusted=false tags] |
350 regsub -all "\r\n" $tags "\n" tags |
350 regsub -all "\r\n" $tags "\n" tags |