From: Shawn O. Pearce <spearce@spearce.org>
Date: Thu, 14 Feb 2008 06:05:04 +0000 (-0500)
Subject: git-gui: Paper bag fix bad string length call in spellchecker
X-Git-Tag: v1.5.5-rc0~3^2~31
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=765239e9d26561454f125cb3033ff55db5d78ce4;p=git.git

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

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 <spearce@spearce.org>
---

diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl
index 01c2c4f0d..7f018e400 100644
--- 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} {