diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2008-02-21 00:20:50 -0500 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2008-02-21 00:22:07 -0500 |
| commit | bb760f0257d2445126ee5c1c1b0d59fa8e4c9de8 (patch) | |
| tree | 036ff563598b7012779f999e8e55649f2adbf968 /lib/spellcheck.tcl | |
| parent | 827743b2e893a0e81e9286ef12de4c02486e6c5e (diff) | |
| download | git-bb760f0257d2445126ee5c1c1b0d59fa8e4c9de8.tar.gz git-bb760f0257d2445126ee5c1c1b0d59fa8e4c9de8.tar.xz | |
git-gui: Shorten Aspell version strings to just Aspell version number
We really only support Aspell, so showing the compatibility line from
ispell is of little value to end users.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Diffstat (limited to 'lib/spellcheck.tcl')
| -rw-r--r-- | lib/spellcheck.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl index 05a1ceb85..76a2f17da 100644 --- a/lib/spellcheck.tcl +++ b/lib/spellcheck.tcl @@ -74,12 +74,16 @@ method _connect {pipe_fd} { } return } + if {{@(#) } ne [string range $s_version 0 4]} { catch {close $pipe_fd} error_popup [strcat [mc "Unrecognized spell checker"] ":\n\n$s_version"] return } set s_version [string range $s_version 5 end] + regexp \ + {International Ispell Version .* \(but really (Aspell .*?)\)$} \ + $s_version _junk s_version puts $pipe_fd ! ; # enable terse mode puts $pipe_fd {$$cr master} ; # fetch the language |