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] |