git-gui: Paper bag fix bad string length call in spellchecker

spearce · spearce · commit 765239e9d265 · 2008-02-14T01:05:04.000-05:00
We don't want the list length, we need the string length.

Found due to a bad " character discovered in the text and
Tcl throwing 'unmatched open quote in list'.

Signed-off-by: Shawn O. Pearce &lt;spearce@spearce.org&gt;
diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl
@@ -308,7 +308,7 @@ method _read {} {
 		# try to round out the word.
 		#
 		while {$curr ne $orig
-		 && [string equal -length [llength $curr] $curr $orig]} {
+		 && [string equal -length [string length $curr] $curr $orig]} {
 			set n_loc  [$w_text index "$e_loc +1c"]
 			set n_curr [$w_text get $b_loc $n_loc]
 			if {$n_curr eq $curr} {

Original file line number	Diff line number	Diff line change
`@@ -308,7 +308,7 @@ method _read {} {`
`308`	`308`	`# try to round out the word.`
`309`	`309`	`#`
`310`	`310`	`while {$curr ne $orig`
`311`		`- && [string equal -length [llength $curr] $curr $orig]} {`
	`311`	`+ && [string equal -length [string length $curr] $curr $orig]} {`
`312`	`312`	`set n_loc [$w_text index "$e_loc +1c"]`
`313`	`313`	`set n_curr [$w_text get $b_loc $n_loc]`
`314`	`314`	`if {$n_curr eq $curr} {`