Mercurial > hg > mercurial-crew-with-dirclash
comparison contrib/hgk @ 2297:936b615eb44e
Fix hg view if author's name contains unmatched quotes. (issue248)
This was caused by the often seen Tcl list vs. string programming error.
| author | Thomas Arendsen Hein <thomas@intevation.de> |
|---|---|
| date | Wed, 17 May 2006 14:46:12 +0200 |
| parents | 7e0dd64b0718 |
| children | 3dab573a4330 |
comparison
equal
deleted
inserted
replaced
| 2296:6e8e3dd7976e | 2297:936b615eb44e |
|---|---|
| 194 incr ncleft($p) | 194 incr ncleft($p) |
| 195 } | 195 } |
| 196 } | 196 } |
| 197 foreach line [split $contents "\n"] { | 197 foreach line [split $contents "\n"] { |
| 198 if {$inhdr} { | 198 if {$inhdr} { |
| 199 set line [split $line] | |
| 199 if {$line == {}} { | 200 if {$line == {}} { |
| 200 set inhdr 0 | 201 set inhdr 0 |
| 201 } else { | 202 } else { |
| 202 set tag [lindex $line 0] | 203 set tag [lindex $line 0] |
| 203 if {$tag == "author"} { | 204 if {$tag == "author"} { |
| 204 set x [expr {[llength $line] - 2}] | 205 set x [expr {[llength $line] - 2}] |
| 205 set audate [lindex $line $x] | 206 set audate [lindex $line $x] |
| 206 set auname [lrange $line 1 [expr {$x - 1}]] | 207 set auname [join [lrange $line 1 [expr {$x - 1}]]] |
| 207 } elseif {$tag == "committer"} { | 208 } elseif {$tag == "committer"} { |
| 208 set x [expr {[llength $line] - 2}] | 209 set x [expr {[llength $line] - 2}] |
| 209 set comdate [lindex $line $x] | 210 set comdate [lindex $line $x] |
| 210 set comname [lrange $line 1 [expr {$x - 1}]] | 211 set comname [join [lrange $line 1 [expr {$x - 1}]]] |
| 211 } | 212 } |
| 212 } | 213 } |
| 213 } else { | 214 } else { |
| 214 if {$comment == {}} { | 215 if {$comment == {}} { |
| 215 set headline [string trim $line] | 216 set headline [string trim $line] |