diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2008-02-14 01:05:04 -0500 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2008-02-14 01:05:04 -0500 |
| commit | 765239e9d26561454f125cb3033ff55db5d78ce4 (patch) | |
| tree | 2cda99a80c863a63a946aa881c422c6a0e080ffd | |
| parent | 95b002eeb38de89feb7f0cc1a55721b45fd3cf11 (diff) | |
| download | git-765239e9d26561454f125cb3033ff55db5d78ce4.tar.gz git-765239e9d26561454f125cb3033ff55db5d78ce4.tar.xz | |
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>
| -rw-r--r-- | lib/spellcheck.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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} { |