undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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>
This commit is contained in:
Shawn O. Pearce 2008-02-14 01:05:04 -05:00
parent 95b002eeb3
commit 765239e9d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/spellcheck.tcl
View File

@ -308,7 +308,7 @@ method _read {} {
# try to round out the word. # try to round out the word.
# #
while {$curr ne $orig 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_loc [$w_text index "$e_loc +1c"]
set n_curr [$w_text get $b_loc $n_loc] set n_curr [$w_text get $b_loc $n_loc]
if {$n_curr eq $curr} { if {$n_curr eq $curr} {