From: Shawn O. Pearce <spearce@spearce.org>
Date: Thu, 21 Feb 2008 05:20:50 +0000 (-0500)
Subject: git-gui: Shorten Aspell version strings to just Aspell version number
X-Git-Tag: gitgui-0.10.0~22
X-Git-Url: https://git.lorimer.id.au/gitweb.git/diff_plain/bb760f0257d2445126ee5c1c1b0d59fa8e4c9de8?hp=827743b2e893a0e81e9286ef12de4c02486e6c5e

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>
---

diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl
index 05a1ceb85b..76a2f17dae 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