summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/spellcheck.tcl4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/spellcheck.tcl b/lib/spellcheck.tcl
index 05a1ceb..76a2f17 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