comparison contrib/hgk @ 4502:1774c037fbd2

hgk: display tags that contain spaces

4501:b2338c0cf468

    set tags [exec hg tags]
    regsub -all "\r\n" $tags "\n" tags
    set lines [split $tags "\n"]
    foreach f $lines {
	set f [regexp -all -inline {\S+} $f]
	set direct [lindex $f 0]
	set full [lindex $f 1]
	set sha [split $full ':']
	set tag [lindex $sha 1]
	lappend tagids($direct) $tag
	lappend idtags($tag) $direct
    }

4502:1774c037fbd2

    set tags [exec hg tags]
    regsub -all "\r\n" $tags "\n" tags
    set lines [split $tags "\n"]
    foreach f $lines {
	regexp {(\S+)$} $f full
	regsub {\s+(\S+)$} $f "" direct
	set sha [split $full ':']
	set tag [lindex $sha 1]
	lappend tagids($direct) $tag
	lappend idtags($tag) $direct
    }