Mercurial > hg
changeset 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 | d6b9c3a03268 1fcc076fcb17 |
| files | contrib/hgk |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/hgk Mon Jun 04 16:54:52 2007 +1000 +++ b/contrib/hgk Mon Jun 04 09:16:53 2007 -0500 @@ -264,9 +264,8 @@ 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] + regexp {(\S+)$} $f full + regsub {\s+(\S+)$} $f "" direct set sha [split $full ':'] set tag [lindex $sha 1] lappend tagids($direct) $tag