Mercurial > hg
comparison contrib/hgk @ 4502:1774c037fbd2
hgk: display tags that contain spaces
author | TK Soh <teekaysoh@yahoo.com> |
---|---|
date | Mon, 04 Jun 2007 09:16:53 -0500 |
parents | b2338c0cf468 |
children | 39001f4b7d99 |
comparison
equal
deleted
inserted
replaced
4501:b2338c0cf468 | 4502:1774c037fbd2 |
---|---|
262 | 262 |
263 set tags [exec hg tags] | 263 set tags [exec hg tags] |
264 regsub -all "\r\n" $tags "\n" tags | 264 regsub -all "\r\n" $tags "\n" tags |
265 set lines [split $tags "\n"] | 265 set lines [split $tags "\n"] |
266 foreach f $lines { | 266 foreach f $lines { |
267 set f [regexp -all -inline {\S+} $f] | 267 regexp {(\S+)$} $f full |
268 set direct [lindex $f 0] | 268 regsub {\s+(\S+)$} $f "" direct |
269 set full [lindex $f 1] | |
270 set sha [split $full ':'] | 269 set sha [split $full ':'] |
271 set tag [lindex $sha 1] | 270 set tag [lindex $sha 1] |
272 lappend tagids($direct) $tag | 271 lappend tagids($direct) $tag |
273 lappend idtags($tag) $direct | 272 lappend idtags($tag) $direct |
274 } | 273 } |